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— m 5 ^ S “ 3 5 s 5 Z 5 5 «f g 5 s — <5 5 2S! 5 ? 5? «?. S3. .*?■ 5 T — 



s5?Sk3^55*??^».?5!3?*8?3S®S?5? 



^ssasBSB^sePsBsBBBBFBRs-B-B-^- 2 -?? ----- 

OUTPUT 12 _ _ _ 

CC?5s^=3=S?K5S«=SS»B== : ?5 ::: = :: = : -= =::: ’'=- r =- 



MEM. STRG. USED 02&76 
01450 THRU 01464 
10300 THRU 13060 



UQK 



01450 

01451 

01452 

01453 

01454 



01455 

01456 

01457 

01460 

01461 

01462 

01463 

01464 



!N$TR 



46 1462 
44 1463 
76 1500 
10 1462 
12 1463 



30 1464 
50 5620 
10 1462 
12 1463 
34 1452 
00 0000 
00 0000 
01 0277 



10300 

10301 

10302 

10303 

10304 



50 7201 
44 2366 
76 2770 
12 2366 
65 0306 



10305 76 3043 

10306 50 5020 

10307 34 0311 

10310 34 0321 



UUP 



0 

1 

2 

3 

4 

5 

6 

7 



10 

11 

12 

13 

!<♦ 

15 

16 
17 



20 

21 

22 

23 

24 

25 

26 
27 



30 

31 

32 

33 



INT1A 



INT1A 



I NT 10 
INTlD 



ARITH 



arith 



-f ur 



to ■ . 



PR0G*1219B*FACT*QCT*67 ^ 

REMARKU219B FACT .MODIFIED FROM 1219 FACT 
REMARK* INTEGRATED COMMAND-ARITHMETIC TEST 
STRAP* INTIB:^ 

STRAL*lNTlCf^,^;^-';;.; • 

RvJp*COMA - 
ENTAU*INT1B 

ental*intic:’ 



,4 1 .. 




irup*intid Ilf 

ST0P*20 . 

ENTAU*lNTlB\ii|’f ; : ^.;. 

ENTAL*INT1C , ' • >' 

JP*lNTlA+2 

o* 

■ o* ^ 

o*arith-i 



PR0G*1219B*FACT*0CT*67 

REMARK*1219B FACT MODIFIED FROM 1219 FACT 

REMARK*ARITHMEUC Test 

ENTICR*1 SET FOR Bl 

stral*alparm 

RJP*TYPE 

ENTAt*AUPARM 

JPALP*L0K+2 v .. 



RJP»I0SET 

5KP*20 

JP*L0K+2 

jp*arithi 



i i 



SET KEY 4 TO SUPPRESS OUTPUTS 
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I03U 


30 


0312 - 


34 • - 




typt*$cr$arithmetic test 


10312 


01 


.2374 




’ 1 i; 


- : vi. V .*• ' • 

v ’*/••. ■ 


10313 


76 


4162 


*1 1 


’ r* 


<•. • . . , tyityvX r -. 


10314 


51 


6450 






10315 


55 


4564 




‘ '• • 




10316 


51 


4300 


' ■* \ 






10317 


64 


4563 






% \ 


10320 


64 


1111 






• . •/ 


10321 


76 


0526 


35 


• AR1T.H1 


RDPtEXEc . .. . . 


10322 


70 


.0001 


36 


.mrack : 


ENTALK*1 

’ y • v- . ‘ 


10323 


14 


0360 


37/' - 




a’ddal*cnt 


10324 


44 


0360 


40 i 




stral*cnt 


10325 


02 


0361 


•41 ' 




cmal*nym9 


10326 

10327 


63 6321 
40 0360 


42 v 

43 


!■ ' 


eu 2 NT ARXTH ^^?#‘ 


10330 


50 


5020 


44 


i 


SKP*20 -h'- 


10331 


34 0333 


45 


! ' 


' JP*L0K+2 •> • • 


10332 


34 


0345 


46 




JP*MRACK1-1 y 1 • 


10333 


12 


0363 


47. . 




ENTAL*EFLG r 


10334 


63 


0351 


50 




JPALNZ*RECYi- 


10335 


30 


0336 


51 




TYPT**CR$OK» ' END CYCLES*CRS 


10336 


01 


2374 








10337 


76 


2053 




\ 


' , ’ 


10340 


14 


0045 






]\ l :0 


10341 


56 


4400 








IO 342 


43 


7143 






; •" l : 


10343 


54 


4563 








10344 


76 


7777 








10345 


50 


5602 


52 




ST0p*2 \ 


10346 


50 


5004 


53 


MRACK1 


SKP*04 


10347 


55 


0277 


54 




I JP*ARITH^1 ;%J 


10350 


34 


0321 


55 




up*arithi 


10351 


30 


0352 


56 


RECYL 


TYPT**CRiRECYCEE , 


10352 


01 


2374 








10353 


7*' 


6245 








10354 


_ t 


17143 






-W) 



I : 
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SET - GO TO THE TEST 
. COUNT 10 CYCLES 

UPDATE THE COUNT 

FINISHED 

NO 

'key 4* set to suppress type-outs 

CHECK ERROR FLAG 



SET STOP KEY 1 FOR END OF TEST 
SET SKIP KEY 2 TO STAY IN ARITH 
EXIT 

RERUN TEST 

toj 
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10355 


54 


4577 




1Q356 


40 


0363 


§7 


10357 


34 


0345 


60 


10360 


00 


0000 


61 


10361 


04 


QOOQ 


62 


10362 


00 


0013 


63 


10363 


00 


0000 


64 








65 


10364 


00 


0000 


66 


10365 


72 


0435 


67 


10366 


50 


7201 


70 


10367 


76 


0440 


71 


10370 


12 


2354 


72 


10371 


63 


0413 


73 


10372 


12 


2353 


74 


10373 


63 


0413 


75 


10374 


30 


0375 


76 


10375 


01 


2374 




10376 


76 4562 




10377 


62 


2062 






' nymb 

. PRT 
... EFLG 
, ERMSG 
•; ERMSG 




cl*eflg • .^.. 4 . v , f ., 

JP*MR ACK ' ' 

o*o 



v*. /•, 

• • . y v .* ; • ■ •- y- 



040000* 

0*13 
0*0 

PRQG*MCMANUS*I3JULY64 
0*0 ' r 

STRICR*ERMJ 4 . X 
ENTICR*1 ' -'Vr ' 
RJP*MTITLE . ■■■. 

V?;'V • 

ENTAL*FLA6U • 

JPALNZ*NQC < 

ental*flag 

JPALNZ*N0CI 
TYPT*SCR*ERR0R ZW-)- 




CLEAR the ERROR FLaG 
CHECK FOR STOP KEY 1 



NUMBER of CYCLES 

printer enagle 
error flag 

entry error subroutine 

SAVE MAIN TEST B 
SET FQR Bl 
PRINT TEST TITLE 



YES SKIP CORRECT INCORRECT 



l 

! 

} 

f 

i 

i. 

j 

i. 



i 

i ’ 



1Q400 77 7777 

10401 30 0402 77 

10402 01 2374 

10403 76 4320 

10404 62 6245 

10H0S 43 6400 

10406 00 0051 

10407 56 4320 



TYPT*SCR$CORRECT INC0RRECT$CR$ 



10410 62 6245 

10411 43 6476 

10412 77 7777 

10413 70 7777 

10414 44 0363 

10415 30 0416 

10416 01 2630 

10417 61 2367 






100 NOCI 

101 
102 



ENTALK*7777 
stral*eflg : ■■ 
typc*ptni* % * * * * *PTN2 



SET THE error flag 
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10420 


10 


0000 


• 




10421 


10 


0000 






10422 


10 


OOOQ 


* 




10423 


10 


0000 




i 


10424 


10 


0000 






10425 


10 


0000 






10425 


61 


2370 






10427 


00 


0000 


103 




104.30 


10 


2367 




10431 


12 


2370 


104 v 




10432 


50 


5604 


105 <;■ 




10433 


40 


2367 


106 




10434 


40 


2370 


107 


ERM1 


10435 


50 


7200 


110 . 


10436 


55 


0364 


Ill 


PAT 

MTITLE 


10437 


00 


0000 


112 

113 


10440 


00 


oooo 


114 


MT1TLE 


10441 


36 


0012 


115 


T1TLE1 


10442 


13 


2353 


116 


10443 


63 


0446 


117 




10444 


73 


0442 - 


120 





10445 


34 


0464 


121 




10446 


13 


0465 


122 


TITLE2 


10447 


74 


0452 


123 




101*50 


71 


0001 


124 




10451 


74 


0453 


125 




10452 


10 


0000 


126 


limit 


10453 


12 


0000 


127 




10454 


46 


0460 


130 




10455 


44 


0461 


131 




10456 


30 


0457 


132 


LIMIT1 


10457 


01 


2374 






10460 


70 


7070 


* 




10461 


70 


7070 






10462 


77 


7777 






10463 


( ) 


0437 

/ 


133 





entau*ptni • 

ENTAL*PTN2 /' 

ST0P*4 ; 

CL*pTNi 
CL*PTN2 

enticr*o ■ 



■‘ 't 

I JP*ERMSG ;i^: ; vV ; 

0*0 & 
PR06*MCMANUS*J(6JULY64 
0*0 

ENTBK*12 ' 

ENTALB*FLAQ ' 
JPALNZ*TITLE2 :. 
BJP*L0K-2 • 



JP*N0TYPE vH -V: - 
ENTaLb*MTeST . ... 
stradr*limjt 
ADDALK*1 • : 
STRADR*LIMlTti 

entau*o 

ental*o 

STRAU*UMlTlt2 . 



STRAL*LlMlTlt3 
TYPT*XXXXXX 



entb*pat 




restore main TEST B 
exit 

TYPE TITLE S/R 
SET B COUNT 
CHECK S/R FLAGES 

LOOP 

HELP 

SET LIMITS FOR MESSAGE 



CLEAR B 




j 



i 

i 

♦ i 

< ) - 
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( 



I 




( 



\ 



■f, 











0 


:/l0464 


55 


0440 


134 


notype 


/ 10465 


01 


0524 


135 


mtest 


10466 


01 


0522 


136 




10467 


01 


0520 


137 


. . 


10470 


01 


0516 


140 




10471 


01 


0514 


141 




,10472 


01 


0512 


142 


II 



10473 


01 


0510 


143 




10474 


01 


0506 


144 




10475 


01 


0504 


145 




10476 


01 


0502 


146 




10477 


01 


0500 


147 


taut 


10500 


76 


4165 


150 


10501 


64 


0000 . 


151 




10502 


76 


4154 


152 


talt 


10503 


64 


0000 


153 


tlsal 


10504 


76 


5463 


154 


10505 


41 


5400 


155 


TRSAL 


10506 


76 


6263 


156 


10507 


41 


5400 


157 


TADER 


10510 


76 


4144 


160 


10511 


45 


6200 


161 


TKT 


10512 


76 


5364 


162 . 


10513 


00 


0000 


163 


TCPAL 


10514 


76 


4360 


164 


10515 


41 


5400 


165 


TADD 


10516 


76 


4144 


166 


10517 


44 


0000 


167 


TMUL 


10520 


76 


5565 


170 


10521 


54 


oooo 


171 


TDIV 


10522 


76 


4451 


172 


10523 


66 


oooo 


173 


TDVT 


10524 


76 


4466 


174 


10525 


64 


oooo 


175 

176 

177 


EXEC 
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IJP+MTITLE 

0*TDVT 

0*TDIV 

Q*TMUU 

0*TADD 

0*.TCPAL 

0*TKT 

0*TADER 

0*TRSAL 

0*TLSAL 

0*TALT 

0*TAUT 

764165* 

640000* 

764154* 





CR/LF/A 

U/T/SP 

CR/LF/A 



640000* 

765463* 

415400* 

766263* 

415400* 

764144* 

456200* 

765364* 




L/T/SP 

CR/LF/L 

S/A/E 

CR/LF/R 

S/A/L 

CR/LF/A 

D/E/R 

CR/LF/K 



000000 * 

764360* 

415400* 

764144* 

440000* 

765565* 

540000* 

764451* 



T/SP/SP 

CR/LF/C 

P/A/U 

CR/LF/A 

d/d/sp 

CR/LF/M 

U/L/SP 

cr/lf/d 



660000* 

764466* 

640000* 



I/V/SP 

cr/lf/d 

v/T/sp 



PR0G*DARFW5*1FEB63 

remark*ths$ routine is the exec 



FOR The arithmetic, test 



) 

r 



i 

i 



i 

* 



) 




.-I* • 
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200 


5ET ADR* 11 37 


10526 


00 


0000 


201 EXEC 0*0 


10527 


70 


7777 


202 


ENTALK*7777 . v 


10530 


44 


2365 


203 


STRAL*FLAG+12. 


10531 


76 


0650 


204 ■ 


R JP*AUT 


10532 


50 


5001 


205 


SKP*1 


10533 


34 


0535 


206 


JP*L0K+2 V V 


10534 


34 


0531 


207 


JP*LQK-3 ^ Or . 


10535 


40 


2365 


210 


cl*flag+ 12' 


10536 


70 


7777 


211 


ENTALK*7777‘-v;^:; >r 


10537 


44 


2364 


212 


stral*flagui V 


10540 


76 


0717 


213 


RJP*ALT 


10541 


50 


5001 


214 


SKP*l 


10542 


34 


0544 


215 


JR*L0K*2 


10543 


34 


0540 


216 


JP*L0K~3 


10544 


40 


2364 


217 


CL*FLAG+U * •;.>'••• «'• 


10545 


70 


7777 


220 


ENTALK*7777.e^ ■' 


10546 


44 


2363 


221 


STRAL*FLAQtlO 


1054? 


76 


0757 


222 


rjp*lsal 


10550 


50 


5001 


223 


SKP*1 


10551 


34 


0553 


224 


JP*L0K+2 


10552 


34 


0547 


225 


JP*L0K-3 


10553 


40 


2363 


226 


cl*flag+io 


10554 


70 


7777 


227 


ENTALK*7777 


10555 


44 


2362 


230 . 


stral*flag+7 . 


10556 


76 


1105 


231 


RJP*RSAL 


10557 


50 


5001 


232 


SKP*1 


10560 


34 


0562 


233 


JP*L0K*2 , . 


10561 


34 


0556 


234 


JP*L0K“3 


10562 


40 


2362 


235 


CL*FLAG+7 


10563 


70 


7777 


236 


ENTALK*7777 


10564 


44 


2361 


237 


STRAL*FLAG+6 


10565 


76 


1237 


240 


rjp*aoer 


10566 


50 


5001 


241 


SKP*1 


10567 


34 


0571 


242 


JP*L0K+2 


10570 , 


> 


0565 


243 


JP*L0K-3 \ 



ENTRANCE 

TEST ENTER AU 

key o not set continue 

repeat this sub 



TEST ENTER AL. 
KEY 0 CONTINUE 

REPEAT 



TEST LEFT shift 
KEY 0 CONTINUE 



test right shift 

KEY 0 CONTINUE 



TEST ADDER 
KEY 0 CONTINUE ^ 



i 



) 



s frarj&fr V 'tsr to *SS3iV V tt * 
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1Q571 


40 


2361 


244 


10572 


70 


7777 


245 , 


10573 


44 


2360 


246 , 


10574 


76 


1450 


247 , 


1057& 


50 


5001 


250 . 


10576 


34 


0600 


25}, 


10577 


34 


0574 


252 ■ 


10600 


40 


2360 


253 : 


10601 


70 


7777 


254 


10602 


44 


2357 


255 . 


10603 


76 


1530 


256 


1Q6Q4 


50 


5001 


257 


10605 


34 


0607 


260 


10606 


34 0603 


261 1 


10607 


40 


2357 


262 


10610 


70 


7777 


263 


10611 


44 


2356 


264 


10612 


76 


1661 


265 


10613 


50 


5001 


266 


10614 


34 


0616 


267 


10615 


34 


0612 


270 


10616 


40 


2356 


271 


10617 


70 


7777 


272 


10620 


44 


2355 


273 r- 


10621 


- 76 


1716 


274 


10622 


50 


5001 


275 


10623 


34 


0625 


276 


10624 


34 


0621 


277 


10625 


40 


2355 


300 


10626 


70 


7777 


301 


10627 


44 


2354 


302 


10630 


44 


2354 


303 


10631 


76 


1747 


304 


10632 


50 


5001 


305 


10633 


34 


0635 


306 


10634 


34 


0631 


307 



ce*flag+6 . 

ENT At-K* 7777 
STRAU*FUAG+S' 

RJP+KT 

SKPU 

JP4L0K+2 

JP*L0K**3 ; •• 

CUFLAG+5 ! 

entalk*7777 , 2 

STRAL*FLAetr^^'^, 
rjp*cpal :,i' 

skp*i . f 

JP*L0K+2 ' v •. 
JP*LQK~3 • 

CL*FLAG+4 %;/! 
ENTALK*7777 > . 
STRAL*FLAG+3 , ; 

RJP*ADD v 

skp*i 



JP*L0K+2 
jP*LQK-3 
CL*FLAG+3 i: 
ENTALK*7777 
STRAL*FLAG+2 ' 
RJP4MUL 
SKP*1 
JP+LOK+2 



JP*L0K-3 

CL*FUAG+2 *’■ 

ENTALK+7777 

STRAL+FLAG+I 

STRAL*FLAgU 

RJP*DIV 

SKP*1 

JP*L0K+2 

Jp*L0K“3 






( 
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TEST SHIFT COUNTER 

KEY 0 continue • 




test COMPLEMENT 

key 0 continue 




test add a 

KEY 0 CONTINUE 



TEST MULTIPLY 

key o continue 




TEST DIVIDE 

key o continue 
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10635 


40 


2354 


310 


10636 


70 


7777 


311 


10637 


44 


2353 


312 


10640 


76 


2057 


313 


10641 


50 


5001 


31** 


10642 


34 


0644 


315 


10643 


34 


0640 


316 


10644 


40 


2353 


317 


10645 


50 


5002 


320 


10646 


55 


0526 


321 


10647 


34 


0527 


322 

323 ■■■- 

324 


10650 


00 


0000 


325 


10651 


10 


2134 


326 


10652 


46 


2132 


327 


10653 


12 


2132 


330 


10654 


02 


2142 


331 


1065S 


63 


0707 


332 


10656 


10 


2135 


333 


10657 


46 


2132 


334 


10660 


12 


2132 


335 


10661 


02 


2143 


336 


10662 


63 


0707 


337 


10663 


10 


2136 


340 


10664 


46 


2132 


341 


10665 


12 


2132 


342 


10666 


02 


2136 


343 


10667 


63 


0707 


344 


10670 


10 


2137 


' 345 


10671 


46 


2132 


346 


10672 


12 


2132 


347 


10673 


02 


2137 


350 


10674 


63 


0707 


351 


10675 


10 


2140 


352 


10676 


46 


2132 


353 


10677 


( 


^2132 


354 



cl*flag+i 



m 

aut 



ENTALK»7777 > : r 

STRAL*FLAG ^ 

rjp*dvt 

SKP*1 

■ • • ' ' •• '--Vi " 

JP*.LQKT2 

op»uok-3 

■ QL+FLA6 '-mm $ . 
5KP*2 

IJP*EXEC /U : 

JP*EXEC+1 • v-Y il 
PR0(B*DARFWS«IM,AR63.^ 

. SET ADR* 1205:^' :.. . ' 

0*0 '■• 

ENTAU*TpATT 4 v vY- 
STRaU*TPCK 0'^v;. 
ENTaL*TPCK >v 

CMAU*TPAT2 YVYY ; Y, •. 
JRN0T*AUU ;-w v-.;..-;. 
ENTAU*TpATl*l li . 



STRAU*TPCK i y ' ' \ ; 



ENTAUTPCK ; '• 

CMAL*TPAT2H. ■ ' 
JPN0T*AUT1 : '• 
ENTAU*TpAUt2 
STRAUfTPCK • 
ENTAU*TPCK . 
CMAL*TPAT1*2 
JPN0T*AUU ‘ 



ENTAU*TpAT4t3 

STRAU*TPCK 

entau*tpck 

CMAL*TPaT 1+3 Y v 
JPNQT*AUT1 
ENTAU*TPAnt4 .. 
STRAU*TPCK ; - 
ENTAL*TPCK { \ 



PAGE ooa 



divide test 

, KEY 0 CONTINUE 



1 

I 



TEST EXIT KEY 1 
EXIT 

CONTINUE CYCLING SUBTEST 



TEST AU 
CLEAR AU 
SAVE AU 

SET AL EQUAL AU 
IS AL CORRECT 
ERROR JUMP 
SET AU TO 777777 
SAVE AU 

SET AL EQUAL AU 
IS AL CORRECT 
ERROR JUMP 
SET AU TO 252525 
SAVE AU 

SET AL EQUAL AU 
IS AL CORRECT 

error jump 

SET AU TO 525252 
SAVE AU 

SET AL EQUAL AU 
IS AL CORRECT 
ERROR JUMP 
SET AU TO 707070 
SAVE AU 

SET AL EQUAL AU 
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o 



10700 


02 


2140 


355 




CMAL*TPATlt4 


10701 


63 


0707 


356 


. 


JPN0T*AUT1 


10702 


10 


2141 


357 




ENTAU*TpATlt5 ; .: f 


10703 


46 


2132 


360 




strau*tpck V 


10704 


12 


2132 


361 


* * ' 


ENTAL*TpCK . 


1070& 


02 


2141 


362 




CMAL*TPATl+5. ’ V; :; 5 

■ ' r; 


10706 


61 


0716 


363 




JPEQ*LQKUQp&fe' 


10707 


50 


5601 


364 


AUT1 


STOP*! 


10710 


50 


5020 


365 




SKP*20 . 


10711 


34 


0713 


366 




JP*L0K+2 ' 


10712 


55 


0650 


367 


, 


IJP*AUT . H : 


10713 


46 


2367 


370 


• h 


STRAU*PTN1 


10714 


44 


2370 


371 


■« 


STRAL*PTN2 f * • 


10715 


76 


0364 


372 


: 1 


RJP*ERMSG 


10716 


55 


0650 


373 

374 

375 


ALT 


■ I JP*AUT 

PR0G*DARFWSHPEB63 
SETA0R*1246 •: i, .?;v - 


10717 


00 


0000 


376 


ALT 


0*0 *"v' 


10720 


10 


2134 


377 




ENTAU*TPAT1 • • . 


10721 


12 


2134 


400 




ENTAL*TPAT1':; ' • V 


10722 


63 


0747 


401 




JPALNZ*ALT1 '-j-v 


10723 


10 


2135 


402 




ENTAU*TPATltl 


1Q724 


12 


2135 


403 




ental*tpati+i 


10725 


02 


2143 


. 404 




CMAL*TPAT2tl 


10726 


63 


0747 


405 




JPN0T*ALT1 


10727 


10 


2136 


406 




ENTAU+TPAT1+2 


10730 


12 


2136 


407 




ENTAL*TPATl+2 


10731 


02 


2144 


410 




CMAL*TPAT2+2 


10732 


63 


0747 


411 




jpnot*alti 


10733 


10 


2137 


412 




ENTAU*TpATlt3 


10734 


12 


2137 


413 




ental*tpati+3 


10735 


02 


2145 


414 




CMAL*TPAT2+3 


10736 


63 


0747 


415 




jpnqt*alt 1 


10737 


10 


2140 


416 




ENTAU*TPATi+4 


10740 


12 


2140 


417 




ENTaL*TPAT1+4 


10741 


02 


2146 


420 




CMAL*TPaT2+4 
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J5 AL CORRECT 

error jump 

SET AU TO 070707 
SAVE AU 

SET AL EQUAL AU 
IS AL CORRECT 

YES EXIT 
ERROR STOP 



exit 



TEST AL 
CORRECT TO AU 
CLEAR AL 
ERROR JUMP 
CORRECT TO AU 

SET AL TO 777777 
IS AL CORRECT 
ERROR JUMP 
CORRECT TO AU 
SET AL TO 252525 
IS AL CORRECT 
ERROR JUMP 
CORRECT TO AU 

SET AL TO 525252 
IS AL CORRECT 
ERROR JUMP CD 1 

CORRECT TO AU j 

SET AL TO 707070 i 

IS AL CORRECT 
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10742 


63 


0747 


421 




JPNOT *ALT 1- f i 


10743 


10 


2141 


422 




ENTAU*TpATit5 


10744 


12 


2141 


423 




ENTAL*TpAm5 


10745 


02 


2147 


424 




CMAL*TPAT2+5 ; : .:- 


10746 


61 


0756 


425 




JPEQ+ALTU7 


10747 


50 


5601 


426 .. 


ALU ■ 


STQp*l V, 


10750 


50 


5020 


427 


. ' • 


SKP*20 ' v V •>. ■ 


10751 


34 


0753 


430 




JP*L0K+2 - t : 


1Q752 


55 


0717 


431 




I3P*ALT • M 


10753 


46 


2367 


432 




STRAU+PTN1 : v , 


10754 


44 


2370 


433 




• STRAL*PTN2 


10755 


76 


0364 


434 


. 


RJP+ERMSG Mi- 1 


10756 


55 


0717 


435 




IJPtALT 








436 


LSAL 


PROG*[)ARFWS,fiHA^^ 








437 


1 


SET ADR* 1300 "• * 


10757 


00 


0000 


440 


LSAL 


0*0 -v-vv 


10760 


12 


2134 


441 




ENTAL*TPATiG>^'-‘‘ ; 


10761 


50 


4601 


442 




LSHAL*1 


10762 


10 


2142 


443 




ENTAU*TPAT$ /; V 


10763 


63 


1013 


444 




JPALNZ+LSALi v . 


10764 


12 


2135 


445 




ENTAL*TpATl+l 


10765 


10 


2143 


446 




ENTAU*TRAT2tL 


10766 


50 


4601 


447 




LSHAL*! 


10767 


02 


2143 

J 


450 




CMAL+TPAT2+1 


10770 


63 


1013 


451 




JPN0T*LSAL1 


10771 


12 


2136 


452 




ENTAL*TPATl+2 


10772 


10 


2145 


453 




ENTaU*TPAT2+3 


10773 


50 


4601 


454 




LSHAL* 1 


10774 


02 


2145 


455 




CMAL*TPAT2*3 


10775 


63 


1013 


456 




jpnot*lsali 


10776 


50 


4601 


457 




LSHAL*1 


10777 


10 


2144 


460 




ENTAU*TPAT2+^ 


11000 


02 


2144 


. 461 




CMAL*TPaT2*2 


llool 


63 


1013 


462 




JPN0T*LSAL1 


11002 


t o 


2140 


463 




ental*tpati+4 


11003 


> 


> 2147 


464 




ENTAU*TpAT2t5 ) 
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ERROR JUMP 
CORRECT TO AU 
SET AL TO 070707 
. IS AL CORRECT 
YES EXIT 
ERROR STOP 



EXIT 



. test left shifts 

CLEAR AL 

test shift 
CORRECT TO AU 
ERROR JUMP 
SET AL TO 777777 
CORRECT TO AU 
TEST SHIFT 
IS AL CORRECT. 

error jump 

SET AL TO 252525 
CORRECT TO AU 
TEST SHIFT 
IS AL CORRECT 

error JUMP 

TEST SHIFT 
CORRECT TO AU 

IS AL CORRECT s 

error jump w ; 

SET AL TO 707070 

CORRECT TO AU , \ 
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( 
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llQ04 

U005 


50 4603 
02 2147 


465 

456 




LSHAL*3 

cmal*tpaT2+5 kV:';;; . 


TEST SHIFT 
IS AL CORRECT 


UGQ6 

11007 

llQlQ 

non 

U012 

U013 

110.14 

11015 


63 1013 
50 4603 
10 2146 
02 2146 
61 1022 
50 5601 
5Q 5020 
34 1017 


467 

470 

471 

472 , 

473 

474 

475 

476 


LSAU1 


JPN0T*ESAtl/V ' ■ 
lshau*3 > 

ENTAU*TpAT2t4 
CMAU*TPAT2+4’ v'a w ] ; 
JpEQtUSAU 

STPP*1 ■''$£'&$%■■■ : 

• SKP+20 

jp*lqk+2 . 


error JUMP 
test shift 

CORRECT TO AU 
IS AL CORRECT 

yes Go To test AU 
' error stop 


11016 

11017 

11020 

11021 

11022 

11023 

11024 

11025 


34 1022 
46 2367 
44 2370 
76 0364 
12 2145 
10 2136 
50 4501 
06 2135 


477 

500 

501 

502 

503 

504 - 

505 

506 


LSAU 


, ■ 'fit *' *i ‘ 

JP*LSAU y' ' V V 

STRAU*PTN1 • r- 
STRAlr*PTN2 "V. 
RJP*ERMSG 

ENTAL*TpAT2+3 3 {; ' 

ENTAU*TpATlt2 ;i 

LSHAU*1 •f.V-V-V:;: 

CMSKHPATl+l •? 


j£ S" tZ- ^ ^ 

CORRECT TO AL^ 

■SET AU TO 252525 

test shift 

IS AU CORRECT 


^11026 
11027 
—b 11030 

11031 

11032 

11033 
^>11034 

110,35 


63 1044 
12 2144 
50 4501 
06 2135 
63 1044 
10 2140 
12 2147 
50 4503 


507 

510 

511 

512 

513 

514 

515 

516 




JPNOT*LSAUl :• 
ENTALKTPAT2+2 . 
L5HAU*1 

cmsk*tpati*i 

JPN0T*LSAU1 

ENTAU+TPAT1+4 

ENTAL*TpAT2+5 

LSHAU*3 


■ ERROR JUMP czri s' 

CORRECT TO AL 

test shift 

IS AU CORRECT 
error JUMP 
SET AU TO 707070 
CORRECT TO AL 

test shift 


11036 

11037 

11040 

11041 

11042 

11043 

11044 

11045 


06 2135 
63 1044 
12 2146 
50 4503 
06 2135 
61 1053 
5Q 5601 
50 5020 


517 

520 

521 

522 

523 

524 

525 

526 


LSAUl 


cmsk+tpati+i 

JPN0T*LSAU1 

ENTAL*TPAT2+4 

LSHAU*3 

cmsk*tpatiu 

JPEQ+LSa 

ST0P*1 

SKP*20 


IS AU CORRECT 
ERROR JUMP 
CORRECT TO AL 

test shift 

IS AU CORRECT 
YES GO TO TEST A 

error stop 


11046 

11047 


34 1050 
34 1053 


527 

530 




JP*LQK+2 
' JP+LSA 


i 



i 



j; 



t 

\ 

/ 

) 

i 

f 

i 

i 

t 

j 
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11050 


44 


2367 


531 


11051 


46 


237q 


532 


11052 


76 


0364 


533 


11053 


10 


2134 


534 


11054 


12 


2134 


535 


11055 


50 


4701 


536 


11056 


63 


1075 


537 


11057 


10 


2136 


540 


110,60 


12 


2136 


541 


11061 


50 


4701 


542 


11062 


02 


2145 


543 


11063 


63 


1075 


544 


11064 


06 


2135 


545 


11065 


63 


1075 


546 


11066 


10 


2140 


w 


11067 


12 


2140 


550 


11070 


50 


4703 


551 


11071 


02 


2147 


552 


11072 


63 


1075 


553 


11073 


06 


2135 


554 


11074 


61 


1104 


555 


11075 


50 


5601 


556 


11076 


50 


5020 


557 


11077 


34 


1101 


560 


11100 


55 


0757 


561 


moi 


46 


2367 


562 


11102 


44 


2370 


563 


11103 


76 


0364 


564 


11104 


55 


0757 


565 

566 

567 


11105 


00 


0000 


570 


11106 


10 


2134 


571 


11107 


12 


2134 


572 


11110 


5q 


4201 


573 


Hill 


63 


1131 

| 


574 




1 ) 


■ fa-’-: 






STRAUPTNl : V; 
STRAU*PTN2 i . 
RJP*ERMSG t %-■;:* ' 
EHTAUfTpATO^;. 

ENTAU*TPATl‘-W$^ v 

LSHA*1 

JPALNZ*LSa V> ! ^ r v T :;: ~ 
ENTAU*TPAU+^:^ v;v ;: 
ENTAL*TPAT4^:^; ; -'^:. 
LSHA*1 ' 

CMAL+TP AT2+3 J V" 

JPN0T*LSA1 

CM$K*TP AT L- '. *V- 

JPN0T*LSA1 
ENTAU*TpATlf4 1 
ENTAL*TpAUtH W i: 
i.SHA*3 

CMAL»TPaT2+5 ; ' , 

jpnoT*lsai :;. 

CMSK»TPATlti , 



JPEQ4LQK+10 '. V : . 

LSAi ST0P*1 
SKP*20 
JP*L0K+2 
IJP*LSAL 
STRAU*PTNi ' 
STRAL*PTN2 
RJP*ERMSG 



IJP*LSAL 

RSAL pROG«DARFWSflFE063 

SETADR+i405 
RSAL 0*0 

ENTAU*TPAT1 

ental*tpau 

RSHAL+i 

JPALNZ*RSAL1 

; ) 
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CLEAR AU 
CLEAR AL 

test shift 

IS AL CORRECT, 

, SET AU TO 252525 
SET AL TO 252525 
TEST SHIFT 
IS AL CORRECT 
ERROR JUMP 

IS AU CORRECT 

error jump 

SET AU To 707070 
SET AL TO 707070 
TEST SHIFT 
IS AL CORRECT 
ERROR JUMP 
IS AU CORRECT 

YES EXIT 
ERROR STOP 



exit 



TEST RIGHT SHIFT 
CORRECT TO AU 
CLEAR AL m I 

TEST SHIFT i 

error jump 1 
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11112 


10 


2135 


575 


11113 


12 


2135 


576 


11114 


50 


4201 


577 


11115 


02 


2135 


600 


11116 


63 


1131 


601 


U117 


10 


2150 


602 


11120 


12 


2136 


603 


11121 


50 


4201 


6Q4 


1H22 


02 


2150 


605 


V Hl23 


63 


1131 


606 


-All 124 


10 


2151 


607 


An 125 


12 


2137 


610 


11126 


50 


4201 


‘611 


11127 


02 


2151 


612 


11130 


61 


1140 


i 513 


, 11131 


50 


5601 


614 


^^11132 


50 


5020 


615 


A 11133 


34 


1135 


616 


1U34 


34 


1140 


617 


11135 


46 


2367 


620 


11136 


44 


2370 


621 


11137 


76 


0364 


'622 


-J 11140 


10 


2134 


623 


Iun4i 


12 


2134 


624 


11142 


50 


4101 


625 


1U43 


62 


1163 


626 


11144 


10 


2135 


627 


11145 


12 


2135 


630 


11146 


50 


4101 


631 


11147 


06 


2135 


632 


11150 


63 


1163 


633 


11151 


10 


2136 


634 


11152 


12 


2150 


635 


11153 


50 


4101 


636 


11154 


06 


2135 


637 


11155 


63 


1163 


640 


11156 


10 


2137 


641 



RSAU 



RSAU 



emtau*tpati+v 

ENTALtTpATlU 
RSHAL*1 ... ; 

CMAL*TPATt t i'* 

jPNOT*RSALl-vr^vi 
E N T A U * T p A T 3 r • . 

entautpau* 2 v' ? ; • ’ 

RSHAL*1 

CMAU+TPAT3 

JPNO T ♦RSALlM ifj v i: 

ENTAU*TPAT3f fcSfAV- " 

ENT AL+TpATl+3^.i ; , .. 

RSHALfl ' 

CMALf TPAT3+1 A- • ' . 

JPEQtRSAU 

stop*i . 

SKP*20 

JP-+L0K+2 

JP*RSAU 

STRAU*PTN1 , 

STRAL»PTN2 A ; 

RJP^ERMSS . 



ENTaU*TPAT1 

ENTAL*TpATl 

RSHAUtl 

JPAUNZ*RSAU1 

ENTAU+TPAT1U 

ENTAL*TpATltl 

RSHAU+1 

CMSK*TPaTU1 



JPN0T*RSAU1 

ENTAU*TpAU + 2 

ENTAL«TPAT3 

RSHAU+1 

cmsk+tpati+i 

JPNOT*RSAUl 
ENTAU*TPAm3 * 



, rf ■•wV" ) -C-s! * 1 i 'Wt# t 
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CORRECT TO AU 
SET AL TO 777777 
TEST SHIFT 
IS AL CORRECT 

.error jump 

CORRECT TO AU 



SET AL TO 252525 



TEST SHIFT 
IS AL CORRECT 



ERROR JUMP 
CORRECT TO AU 







SET AL TO 525252 

TEST SHIFT c z * 

IS AL CORRECT 



YES GO TO TEST AU 
ERROR STOP 



& 

i 

J- 



( 



1 

I 

i 

\ 

} 




CLEAR AU 
CORRECT TO AL 
TEST SHIFT 

SET AU TO 777777 
CORRECT TO AL 
TEST SHIFT 
IS AU CORRECT 



SET AU TO 252525 
CORRECT TO AL 
TEST SHIFT 
IS AU CORRECT 



SET AU TO 525252 
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11157 12 2151 642 

11160 50 4101 6^3. 

11161 06 2135 644 

11162 61 1172 645 

11163 50 5601 646 

11164 50 5020 647 

11165 34 U67 650 

11166 34 1172 651 

11167 44 2367 652 

11170 46 2370 653 

11171 76 0364 654 

11172 10 2134 655 

11173 12 2134 656 

11174 50 4301 657 

11175 63 1227 660 

11176 62 1227 661 

11177 10 2135 662 

11200 12 2135 663 

11201 50 4301 664 

11202 02 2135 665 

11203 63 1227 666 

11204 06 2135 667 

11205 63 1227 670 

11206 10 2136 671 

11207 12 2136 672 

11210 50 4301 673 

11211 02 2145 674 

11212 63 1227 675 

11213 50 4722 676 

11214 02 2150 677 

11215 63 1226 700 

11216 10 2137 701 

11217 12 2137 702 

11220 50 4301 703 

11221 02 2144 704 

11222 J 1227 705 



ENTAL*TpAT 3 +l \ 
RSHAU *1 
CM 5 K*TPAU +1 
JPEQ*RSa /■■■£]■ 
RS*U 1 5 T 0 P *1 

SKP »20 
JP»L 0 K +2 

JP+RSA % 

. STRAUPTNlf^- 
$TRAU*PTN 2 i>i; 

rjp*ermso 

RSA ENTAU*TPAU-^ 

• ENTAUTPAU^v 
RSHA*l • Mis 
jPALNZf rsai 

JPAUN 20 RSA 1 i 

entau*tpatiu 

ENTAL*TpATltl 

RSHAtl 

CMALnPATlU ' 
JPN 0 T*RSA 1 
CMSK*TPATlH 
JPNOT*RSAl ■ , 

ENTAU*TPATH2 

ENTAL*TpATl +2 

RSHA +1 

CMAL*TPAT 2+3 
JPN 0 T*KSA 1 
LSHA »22 - , 
CMAL*TPAT 3 
JPNOT*RSAl“i 

ENTAU*TPATl+3 

ENTAL*TpAU+3 

RSHA *1 

CMAL*TPAT 2+2 

JPNOTtRSAl 
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CORRECT TO AL 
TEST SHIFT 
IS AU CORRECT 
YES GO TO TEST A 



•CLEAR AU 
CLEAR AL 
TEST SHIFT 

error JUMP 

error JUMP 
SET AU TO 777777 
SET AL TO 777777 
TEST shift 
IS AL CORRECT 
ERROR JUMP 
IS AU CORRECT 
ERROR JUMP 

SET AU TO 252525 
SET AL TO 252525 
. TEST SHIFT 
IS AL CORRECT 

error jump 

EXCHANGE REGS 
IS AU CORRECT 

error jump 




SET AU TO 525252 
SET AL TO 525252 
TEST SHIFT W 

IS AL CORRECT 

error JUMP • ( \ 



I 



SHEET 637 REVISION 
SB-10163 



( ( 



11223 


50 


4722 


706 , 


■' / _ V . 


ESHA*22 


11224 


02 


2151 


707 




CMAL*TPAT3+1 %yy\y< 


11225 


61 . 


1236 


710 ... • 


■. ' ' : 


JPEQ*LQK+U.&%^ 


11226 


50 


4722 


711 ; 


" 1 • :• . ; 


LSHa*22 }i Y; 


11227 


50 


5601 


712 


:rsai. 


STOP’t'l i.~: 


11230 


50 .5020 


713 




SKP*20 - v : 1? 


11231 


34 


1233 


714 r 




JP*L0K+2 


11232 


55 


1105 


715 w 


: •>: . ■ ■ ■. ■■■ ’ 


IJPAR5AL, ■ m S* i:g 

STBA^PTNfflgfpSas 


11233 


46 


2367 


716 




11234 


44 


2370 


717 


: Y- 


$TRAU*PTNgg|i|^ 


11235 


76 


0364 


72Q 




RJP*ERMSG 


11236 


55 


1105 


721 

722 

723 *. 


ADER 


I jp*rsal 

PRQG*DARFWSfiMAR63 ' 
SETADR*15l5^»^i^to 


11237 


00 


oooo 


724 


ADER 


0*0 • V- 


11240 


10 


2134 


725 




ENTAU*TPATl:- i >v 


11241 


12 


2135 


726 




ENTAL*TpATlfl r V 


11242 


53 


2135 


727 




SLCP*TPAT1+1 • ' 1 


11243 


63 


1262 


.730 




JPALN2*ADERl "V 


11244 


10 


2135 


731 . 




ENTAU*TpATltl : 


11245 


12 


2134 


732 




ENTAL*TPAT1 


11246 


53 


2135 


733 




SLCP*TPATl+i : r 


11247 


02 


2135 


734 




CMAL*TPAT1+1 


11250 


63 


1262 


735 




JPN0T*ADER1 


11251 


12 


2136 


736 




ENTAL*IPAT142 


11252 


53 


2137 


737 




SLCP*TPATl+3 


11253 


02 


2135 


740 




cmal*tpati+.i 


11254 


63 


1262 


741 




jpnoT*aderi 


11255 


10 


2141 


742 




entau*tpati+5 


11256 


12 


2134 


743 




ENTAL*TPAT1 


11257 


53 


2141 


744 




SLCP*TPATl+5 


11260 


02 


2141 


745 




CMAL*TPATl+5 


11261 


61 


1271 


746 




JPEQ+ADER3 


11262 


50 


5601 


747 


ADERl 


ST0P*1 


11263 


50 


5020 


750 




SKP*20 


11264„ 

- i • ■ 


34 


xm 


751 




JP*L0K+2 



o 
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EXCHANGE REGS 

IS AU CORRECT 
YES EXIT 
EXCHANGE REGS 

' error stop 



EXJT 



. test ADDER 
CLEAR AU 

SET AL TO 777777 

TEST SEL COMP 
. ERROR JUMP 
CORRECT TO AU 
.CLEAR AL 
TEST SEL COMP 
IS AL CORRECT 
ERROR JUMP 
SET AL TO 252525 

TEST SEL COMP 
IS AL CORRECT 
ERROR jump 
CORRECT TO AU 
CLEAR AL 
TEST SEL COMP 
IS AL CORRECT 
YES CONTINUE 



G> 






ERROR STOP SLCP 



SHEET 638 REVISION 
SB-10163 





11265 


34 


1271 


752 




JP+APER3 vv>V.; r 


11266 


46 


2367 


753 




STRAU+PTN1 : V > 


U267 


44 


2370 


754 




STRAL*PTN2 : _ 


11270 


76 


0364 


755 


i ' ■ , : V :• 


RJP*ERMSG Vv^ V . : 'x-\' 


11271 


10 


2135 


756 ■ 


ACER 3 


entau*tpatih 


11272 


12 


2135 


757 • 


s* " ' • ; " ' 


ental*tpatiu-\voVA 


11273 


14 


2135 


760 




A D D A L * T P A T 1 + ^ .i v • 


1127*+ 


02 


2143 


761 




CMAL*TPAT2H:.ft>^^.i:'- ? 


11275 


63 


1370 


762 




JPN(n*ADER2;V^^:^.V‘^ 


11276 


10 


2134 


763 


’ • , ■? • * • . 


ENT4Tj*tpati 


11277 


12 


2135 


764 




ENTALtTPAT^tl^V^.. . 


11300 


14 


2134 


765 




. ADDAL»TpATl’- : fSu/:' v? 


11301 


63 


1370 


766 




JPALNZ*ADER2 > 


11302 


14 


2135 


767 




APDALfTPAT 


11303 


63 


1370 


770 




JPALNZ*ADER2 f'r;:;! 


11304 


14 


2134 


771 




addal*tpati 


11305 


63 


1370 


772 




jpalnz*adeR2 /v - 


11306 


32 


2134 


773 




ENTB*TPAT1 . 


11307 


12 


2122 


774 




ental*twoi ‘ 


11310 


10 


2123 


776 




ENTAU*TWD2 


11311 


50 


4701 


776 


aderio 


LSHA*! ; ; ' 


11312 


44 


2124 


777 




stral*shwdi- 


11313 


46 


2125 


1000 




STRAU«SHWD2 


11314 


11 


2152 


1001 




ENTAUB*TAB3 


11315 


14 


2125 


1002 




ADDAL*SHWD2 


11316 


06 


2135 


1003 




CMSK*TPaT1+1 


11317 


63 


1370 


1004 




JPN0T+ADER2 


11320 


12 


2124 


1005 




ENTAL*SHWDl 


11321 


10 


2125 


1006 




ENTAU»SHWD2. 


11322 


56 


2127 


1007 




BSK+INDEX 


11323 


34 


1311 


1010 




jp+aderiq 


11324 


32 


2134 


1011 




entb*tpati 


11325 


13 


2216 


1012 . 




ENTaLB*TABH 


11326 


50 


4601 


1013 




lshal*i 


11327 


45 


2240 


1014 




STRALB^TABS 


11330 


r 


\2l27 


1015 




bsk*index \ 
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CORRECT TO AU 
SET AL TO 777777 
NO BORROW^ NO ENABLES 
. IS AL CORRECT 
ERROR JUMP 
correct to au 

SET AL TO 777777 

NO BORROWS ALL ENABLES 
ERROR JUMP 
0 + NEG 0 
ERROR JUMP 

ALL BORROWS NO enables 
error jump 

CLEAR B 

SET AL TO 377777 

SET AU TO 377776 
SHIFT PATTERN 
SAVE AL 
SAVE AU 
CORRECT to AU 
TEST ADD 
IS AL CORRECT 

error jump 

restore al 
restore AU • 
all 21 checked 

NO CONTINUE 
CLEAR B 

SET AL TO PATTERN 

SHIFt PATTERN m - 

SET NEW PATTERN j 

TABLE COMPLETE r \ 



SHEET 639 REVISION 
SB-10163 





11331 


34 


1325 


11332 


12 


2126 


11333 


44 


1343 


11334 


12 


2127 


11335 


44 


2131 


11336 


12 


2122 


11337 


50 


4601 


11340 


44 


2124 


11341 


32 


2134 


11342 


12 


2124 


11343 


11 


2152 


11344 


15 


2240 


11345 


06 


2135 


11346 


63 


1400 


11347 


56 


2127 


11350 


34 


1342 


11351 


12 


1343 


11352 


14 


2130 


11353 


44 


1343 


11354 


12 


2124 


11355 


50 


4601 


11356 


44 


2124 


11357 


36 


0000 


11360 


13 


2240 


11361 


50 


4601 


11362 


45 


2240 


11363 


56 


2127 


11364 


34 


1360 


11365 


57 


2131 


11366 


34 


1341 


11367 


55 


1237 


11370 


50 


5601 


11371 


50 


5020 


11372 


34 


1374 


11373 


55 


1237 


11374 


46 


2367 


11375 


44 


2370 



1016 

1017 

1020 . . 

1021 • 

1022 . 

1023 

1024 . • 

1025 . 

1026 . 

1027 

1030 , adlru 

1031 

1032 

1033 

1034 

1035 * 

1036 < 

1037 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1050 

1051 

1052 

1053 

1054 

1055 ADER2 

1056 

1057 
1060 
1061 
1062 



JP*L0K~4 

ental*insti . v; 

S T R A L * A D E R 1 1 . ' -V 
ENT ALt INDEX ■ 
5TRAL* I NDEX2, , • < 



entau*twpi ■fe-c , 

LSHAL*1 ,■$$$ • 
STRAL*SHWDl }$&'■ 
EN,TB|TPAT1 

ENffc^SHWDl'WV: 

ENTAUB*TAB3; t : ; V. 
ADDALB*TAB5v^v?-< * 
CMSKtTPATltl-'V^I-,. 




JPNOT»AOER%^W#1^>m 
pSK* INDEX ’ 

JP+ADER11-1 , 



entaL+aderii . 

ADDAL*INDEX1 : V ; 

STRAHADERU 

entaU*shwd! i - . ^ : > 

USUAL* 1 i ; : 



STRAL*SHWDl 

entbk*o 

ENTaLB*TAB5 

lshal*t 

STRALB*TAB5 

bsk*index 

JP*L0K-4 

ISK+INDEX2 



JP*ADERll-2' 

ijp*ader 

stqp*i 

SKP*20 

JP+LOK+2 

ijp+ader 

STRAU*PTNl 

STRAL*PTN2 



( .) 
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NO CONTINUE 
RE5TQRE INST . 

RESTORE 
INDEX 21 
SET INDEX 

SET AL TO 377777 
SHIFT PATTERN 
SAVE PATTERN 
CLEAR B 
PATTERN TO AL 
CORRECT TO AU 
TEST ADD 
IS AL CORRECT 

ERROR JUMP 3 

all patterns checked 

NO CONTINUE 
INST 

address* i 
reset inst 

SET AL To PATTERN 
SHIFT PATTERN 

RESET PATTERN 
CLEAR B 
ENTER table 
SHIFT TABLE 

reset table 
table complete 

no CONTINUE 
INDEX 21 

CONTINUE 

exit 

ERROR STOP 



(P ! 



i 
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11376 


76 


0364 


1063 




RJP*ERMSG • •- 


11377 


55 


1237 


*1064 




I4P+ADER 


11400 


42 


1424 


1Q65 


, APER4 


STRB*ADER31 ... 


11401 


50 


5601 


1066 




STOP*! 


11402 


46 


2367 


1067 




STRAU*PTN1 . 


11403 


44 


2370 


1070 




• STRAL*PTN2 


11404 


10 


2135 


1071 




entau*tpatiu : 


11^05 


12 


2131 


1072 . 




ENTAUINDEX2 ^ . V 


11406 


50 


5601 


1073 




STQP+1 \ : 


11407 


50 


5020 


1074 - 




SKP+20 i : .. t 


11410 


34 


1412 


1075 




JP+U0K+2 - ' i? 


11411 


55 


1237 


1076 • 




IJP*ADER 


11412 


76 


0364 


1077 




Rjp+ERMSG X '• -Wr* 


11413 


32 


2131 


1100 


' 


ENTB+INDEXa;f.^if,<A>|!f^ 


11414 


13 


1426 


1101 




ENTALB*ADERS? ■ i 


11415 


10 


1425 


1102 


• 


ENTAU+ADER32 ; ■ ' 


11416 


30 


1417 


1103 




TYPC*A 


11417 


01 


2630 






• ■ * /. V.. • ’ , 


11420 


20 


oooo 






*:’• . *.• . /• / • • 


11421 


00 


0000 






. ' • ‘ 


11422 


32 


1424 


1104 




ENTB*ADER31 


11423 


55 


1237 


1105 




IJP*ADER 


11424 


00 


0000 


1106 


ADER31 


0*0 


11425 


04 


0354 


1107 


ADER32 


04*0354 


11426 


44 


6262 


1110 


ADER33 


44*6262 


11427 


44 


6261 


1111 




44*6261 ? • 


11430 


44 


6260 


1112 




44*6260 


11431 


44 


6167 


1113 




44*6167 


11432 


44 


6166 


1114 




44*6166 


11433 


44 


6165 


1115 




44*6165 


11434 


44 


6164 


1116 




44*6164 


11435 


44 


6163 


1117 




44*6163 


11436 


44 


6162 


1120 




44*6162 


11437 


44 


6161 


1121 




44*6161 


11440 


u 4 


6160 


1122 




44*6160 


11441 




U567 


1123 




44*0567 X 



< tr.'jK **.« • -iv * ■* 
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t- 
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error exit 

SAVE B 
ERROR STOP 
SAVE CORRECT 
SAVE INCORRECT 

AU 777777 
error index 
error index STOP 
IS TYPEOUT WANTED 
YES 
NO 



RESTORE B 
ERROR EXIT 



CR1LF1 

22 

21 

20 

17 

16 

15 



14 

13 

12 

11 

10 

7 
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11442 


44 


0566 


1124 




44*0566 ; 


11443 


44 


0565 


1125 




44*0565 . 


11444 


44 


0564 


1126 




44*0564 ■ V t r • 


11445 


44 


0563 


1127 , 




44*0563 • ■ 


11446 


44 


0562 


1130 ... 




44*0562 


11447 


44 


0561 


1131 




44*0561 ' 








1132 


KT 


PR06*DARFW5*1MA’R63 








1133 • 




SETADR*1643 ' 

I,- f,) ;' ... 


11450 


00 


OOOQ 


1134 


KT 


0*0 • ’ 


11451 


10 


2140 


1135 




ENTAU*TpATltH /-. 


11452 


12 


2140 


1136 i 




ENTAL*TpATt+4 ; ■ 


11453 


50 


4744 


1137 •, 




LSHA*44 v; . 


11454 


02 


2140 


1140 




CMAL*TPATl+4 wv > 


11455 


61 


1467 


1141 




JPEQ*L0K+1 1 


11456 


10 


2140 


1142 




ENTAU*TPATl+4 ; 


11457 


50 


5601 


1143 


KT1 


stop*i : ; 


11460 


50 


5020 


1144 




SKP*20 


11461 


34 


1463 


1145 




JP*L0K*2 


11462 


55 


1450 


1146 




i jp*kt :■ 


11463 


46 


2367 


1147 




strau*ptni > ' 


11464 


44 


2370 


1150 




STRAL*PTN2 -• ; • 


11465 


76 


0364 


1151 




RJP*ERMSG 


11466 


55 


1450 


1152 




IJP*KT 


11467 


06 


2135 


1153 




CMSK*TPAT1+1 


114,70 


61 


1474 


1154 




jpeq*lok+4 : 


11471 


46 


2132 


1155 




STRAU*TPCK . ' • • 


11472 


12 


2132 


1156 




ENTAL+TPCK 


11473 


34 


1456 


1157 




JP*KT1-1 


11474 


10 


2150 


1160 




ENTAU*TPAT3. 


11475 


12 


2151 


1161 




ENTAL*TPAT3+1 


11476 


50 


4766 


1162 




LSHA*66 


11477 


02 


2150 


1163 




. CMAL*TPAT3 


11500 


61 


■ 1503 


1164 




JPEQ*L0K+3 


11501 


10 


2150 


1165 




ENTAU+TPAT3 


11502 


34 


1457 


1166 




JP*KT1 


11503 


46 


2132 


1167 




STRAU*TPCK 



■ . « i,«#v* • . f , *• •• *.w -ssi»‘. v « tf: % 



(' :■ 
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6 

5 

4 

3 

. 2 
1 



TEST shift COUNTER 
SET AU TO 707070 
„ SET AL TO 707070 

test counter 

IS AU CORRECT 
YES CONTINUE 
CORRECT TO AU 
ERROR STOP 



ERROR EXIT 
IS AU CORRECT 

YES CONTINUE 
SAVE AU 

SET AL EQUAL AU 

error JUMP 

SET AU TO 125252 
SET AL TO 652525 
•TEST COUNTER 
IS AL CORRECT 

YES CONTINUE 
CORRECT TO AU 
^ ERROR JUMP 
SAVE AU 




! 



SHEET 642 REVISION 
SB-10163 




U5Q4 


12 


2132 


1170 




entau*tpck aP.Pv 


11505 


02 


2151 


1171 




CMAL+TPAT3+1 , 


11506 


61 


1511 


1172 




jpeq*lok+ 3 r ;; 


11507 


10 


2151 


1173 i 




ENTAU*TPAT3Hv; ■ . • 


11510 


34 


.1457 


1174 


' • . 


JP*KT1 


11511 


12 


2150 


1175 




ENTAL*TPAT^Xs^s'T^‘f: 


11512 


10 


2134 


1176 




ENT AU*TPAT 1;? ^ ^ . 


11513 


50 


4220 


1177 • 




RSHAL*20 


11514 


63 


1457 


1200 




JPALNZ*KT1 


11515 


10 


2151 


12Q1, • 




ENTAU*TpAT3+W^:p. 

' * * , . *" ' - .■ ’ 
j - ./ •’>' iV 1 ’- ** 


11516 


50 


4342 


1202 




RSHA*42 


11517 


02 


2135 


1203 • 




CMAL^TPATit l ' P* 


11520 


61 


1523 


1204 


• ' • t ‘ 


JPEQ*L0K+3 p PP - 


11521 


10 


2135 


1205 


KT2 


ENTAU*TpATl^W^'rt 


11522 


34 


1457 


1206 


JP*KT 1 1- . 


11523 


06 


2135 


1207 




CMSK*TPATlfl -V 


1152 1 * 


61 


1466 


1210 




JPEQ*KTl+7 • -P-A 


11525 


46 


2132- 


1211 > 




STRAU*TPCK ppp. / 


11526 


12 


2132 


1212 




ental*tpck v . 


11527 


34 


1521 


1213 




JP*KT2 




1214 

1215 


OPAL 


PR0G*DARFWS*1MAR63 
SETADR*l7l5 , 


11530 


00 


0000 


1216 


CPAL 


0*0 


11531 


12 


2134 


1217 




ENTAL*TpATl 


11532 


50 


6100 


1220 




CPAL*0 


115,33 


61 


1545 


1221 




JPALZ*L0K+12 
* * 


11534 


10 


2134 


1222 




ENTAU*TPAT1 


11535 


50 


5601 


1223 


CPALl 


ST0P*1 . 


11536 


50 


5020 


1224 




SKP*2Q 


11537 


34 


1541 


1225 




JP*LQK+2 . . ; ' • 


11540 


55 


1530 


1226 




IJP*CPAL 


11541 


46 


2367 


1227 




strau*ptni 


11542 


44 


2370 


1230 




STRAL*PTN2 : 


11543 


76 


0364 


1231 




RJP*ERM5G . 


11544 

11545 


55 

, > 


1530 
1 2137 


1232 

1233 




I JP*CPAL 

ENTAU*TPAU^3 , \ 
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SET AL EQUAL AU 
IS AU CORRECT 


. j 


YES CONTINUE 


f- 

\ 

t 


CORRECT TO AU 
ERROR JUMP 
SET AL TO 125252 
CLEAR AU 

test counter 
error jump 

SET AU TO 652525 


i 

f 

| 

j 

i 

i 

i 

r 

j 


test counter 

IS AL CORRECT 


j 

* 

t 

i 


YES CONTINUE 
CORRECT TO AU 

error jump 

IS AU CORRECT 


j 

f 

\ 

, i 


SAVE AU 


i 

; 


SET AL EQUAL AU 
ERROR JUMP 


i 

\ 

X 

1 

j 


test complement 
CLEAR AL 


m j 
1 61 ' 


test comp 


sa ; 


yes continue 


H 4 ! 

O' O' i 
-t' ; 


CORRECT TO AU 


“ 1 


error stop 


Sd j 



<M | 

OH 

error EXIT i 





I 

I 



O ( 1 
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11546 


12 


2136 


1234 . 




ENTAUTPATltS Hr. > 


SET AL TO 252525 


11547 


50 


6100 


1235 


■ ’ .V 


CPAL*Q >• ; , . 


test func 


11550 


02 


2137 


1236 


. , ' 


CMAU*TPATl+te:?U 


IS AL CORRECT 


*1551 


63 


1535 


1237 


- 1 ’ • 


JPNOT*CPALl V v’.i . . 


ERROR JUMP 


11552 


10 


2141 


1240 




ENTAU*TPATlt5^'V 


CORRECT TO AU 


11553 

11554 


12 

50 


2140 

6100 


*241’ - 
1242 , 




CPAL*0 TP * Tl *|®p; 


SET AL TO 707070 
TEST COMP 


11555 


02 


2141 


1243 




CMAUtTPATl+5; . 


, IS AL CORRECT. 


11556 


63 


1535 


1244 


• . v ;; •. : 


JPN0T*CPAL1 


, ERROR JUMP 


11557 


12 


2134 


1245 * 


* •. 


ENTAL*TpATl^M - ‘ . 


CLEAR AL 


1156Q 


10 


-2134 


1246 v. 




ENTAU^TpATl ..*•) -V,' *: 


CLEAR AU 


11561 


50 


6200 


1247 




CPAU*0 - ' ' 


. TEST FUNC 


11562 


60 


1574 


1250 




dPAUZ*U0K+l2T^4’:^ v -'- 


CORRECT JUMP 


11563 


50 


4722 


1251 


CPftUl 


L5HA*22 • 


EXCHANGE REGS 


11564 


5q 5601 


1252 • 




stqp*i rrii&zvr;' 


ERROR STOP 


11565 


50 


5020 


1253 




SKP^20 




11566 


34 


1570 


1254 .. 




JP*L0K+2 &. ■' ■■■ 




11567 


55 


1530 


1255 ■ 




I JP+CPAL ; - 




11570 


46 


2367 


1256 •• 




STRAU*PTN1 • 




11571 


44 


2370 


1257 




STRAL*PTN2 




11572 


76 


0364 


1260 




RJP+ERMSG j i: • 


ERROR EXIT 


11573 


55 


153Q 


1261 




I JP+CPAL 


11574 


10 


2135 


1262 




entau*tpati+i 


SET AU TO 777777 


11575 


50 


6200 


1263 




CPAU*0 


TEST FUNC 


11576 


62 


1563 


1264 




JPAUNZ*CPAU1 


ERROR JUMP 


11577 


12 


2137 


1265 


* 


ENTAL+TPAT1+3 


CORRECT TO AL 


11600 


10 


2136 


1266 




ENTAU*TpATlt2 , 


SET AU TO 252525 


11601 


50 


6200 


1267 




CPAU*0 


TEST FUNC 


11602 


06 


2135 


1270 




CMSK*TPaT1+1 : 


IS AU CORRECT 


11603 


63 


1563 


1271 




JPNOT*CpAUl 


ERROR JUMP 


11604 


12 


2141 


1272 




ENTAL*TpATl+5 


CORRECT TO AL 


11605 


10 


2140 


1273 




ENTAU*TpATl+4 


SET AU TO 707070 


11606 


50 


6200 


1274 




CPAU*0 


TEST FUNC 


11607 


06 


2135 


1275 




CMSK*TPATlU 


IS AU CORRECT 


11610 


63 


1563 


1276 




JPNOT*CpAUl 


error jump 


11611 


10 


2134 


1277 




ENTAUtTpATl 


CLEAR AU 



t 



SHEET 644 REVISION 
SB-10163 



11612 


12 


2134 


1300 


ENTAL*TPAT1 V 


11613 


50 


6300 


1301 


CpA*0 vV ■ 


11614 


63 


1617 


1302 


jpalnz*lok+3 i ; • 


11615 


60 


1627 


1303 ; 


JPAUZ*L0K+12. . 


11616 


50 


4722 


1304 CPA1 


lsha*22 / 


11617 


50 


5601 


1305 


STOpn 


11620 


50 


5020 


1306 


SKP*20 


11621 


34 


1623 


1-307 


■ JP*LGK + 2 


11622 


55 


1530 


1310 


IJP*CPAL •VI'"'- 


11623 


46 


2367 


1311 w: 


STRAU+PTN1 


11624 


44 


2370 


1312 


•STRAL.*PTN2 ’0X 


11625 


76 


0364 


1313 • 


R JP+ERMSG 


11626 


55 


1530 


1314 - 


■ I JP+CPAL \ f v 


11627 


10 


2135 


1315 v 


. ENTAU*TPATlty ?; V' 

•* , .. -UK. 


11630 


12 


2135 


1316 


ENTALtTpATltA^Vr-; ■ 


11631 


50 


6300 


1317 


cpa*o • 


11632 


61 


1635 


1320 


JPALZ*L0K43; v 


11633 


10 


2134 


1321 


ENTAU*TPAT1 > • 


11634 


34 


1617 


1322 


JP*CPAU1 • i V; 


11635 


62 


1616 


1323 . 


JPAUNZ*CPAl ’ ’ ’ 


11636 


10 


2137 


1324 


ENTAU»TRATl+3 


11637 


12 


2137 


1325 . 


ENTAL*TpATl+3 . 


11640 


50 


6300 


1326 


CPA*0 


11641 


02 


2136 


1327 


cmal*tpati+2 


11642 


61 


1645 


1330 


JPEQ*L0K+3 


11^43 


10 


2136 


1331 


ENTAUtTRATltg 


11644 


34 


1617 


1332 


JP+CPA1+1 


11645 


06 


2135 


1333 


cmsk*tpati+i 


11646 


63 


1616 


1334 


jpnot*cpai 


11647 


10 


2141 


1335 


ENTAU+TpATltS 


11650 


12 


2141 


1336 


ENTAL*TpAU+5 


11651 


50 


6300 


1337 


GPA*0 


11652 


02 


2140 


1340 


CMAL*TPATl+4 . 


11653 


61 


1656 


1341 


JPEQ*L0K+3 ■ 


11654 


10 


2140 


1342 


ENTAU*TpATl+4 


11655 


34 


1617 


1343 


JP*CPAi+l 


11656 


1 


)2135 


1344 


cmsk*tpati+i ^ 



, vHuf'.t, •» .'I- 1 , ’' 
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CLEAR AL 
TEST FUNC 
. ERROR JUMP 
CORRECT JUMP 
EXCHANGE REGS 
ERROR STOP 



ERROR EXIT 
SET AU TO 777777 

SET AL TO 777777 
TEST FUNC 
CORRECT JUMP 
CORRECT TO AU 
ERROR JUMP 
ERROR JUMP 
SET AU TO 525252 
SET AL TO 525252 

TEST FUNC 
IS AL CORRECT 
YES CONTINUE 
CORRECT TO AU 
ERROR JUMP 
IS AU CORRECT 
ERROR JUMP 
SET AU TO 070707 

SET AL TO 070707 
TEST FUNC 
IS AL CORRECT 

YES CONTINUE ; 

CORRECT TO AU U) 

error jump 

IS AU CORRECT { \ 
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1 Ibb 7 


63 


lbl6 ' 


1345 




jPNOT*CpAl 


11660 


66 


1 530 


1346 




IJP+CPAL 








1347 


ADD 


PR0G*DARFWS*1MAR63 








1360 




SETADR*2024_ 


11661 


00 


O0U0 


1351 


ADD 


0*0 


11662 


12 


1712 


1352 




ental+atab 


11663 


10 


1713 


1353 




ENTAU*ATAB+1 


11664 


20 


1714 


1354 




ADDA*AT AB+2 


1166S 


60 


5100 


1355 




SKPNBO+O 


11666 


34 


1670 


1356 




JP+LOK+2 


11667 


34 


1701 


1367 




JP+A0D1 


11670 


22 


1714 


1360 




SUBA*A t AB+2 


11671 


20 


1712 


1361 




ADDA*AlAB 


11672 


So 


6100 


1362 




SKPNBO+O 


11673 


34 


1701 


1363 




JP*ADD1 


11674 


62 


1701 


1364 




JPAUNZ+AQDl 


1167S 


63 


1701 


1365 




JPALNZ+ADDl 


11676 


22 


1712 


1366 




suba*aTab 


11677 


60 


6100 


I3b7 




SKPNBO+O 


11700 


34 


1710 


137 0 




JP*L0K+10 


11701 


So 


6601 


1371 


ADD1 


ST0P*1 


11702 


60 


5020 


1372 




SKP*2Q 


11703 


34 


1705 


1373 




JP*L0K+2 


11704 


66 


lb61 


1374 - 




1JP+ADD 


11706 


46 


2367 


1375 




STRAU+PTN1 


11706 


44 


2370 


1376 




STRAL+PTN2 


11707 


76 


03b4 


1377 




RJP*ERMS6 


11710 


65 


lb61 


1400 




IJP* ADD 


11711 


00 


uooo 


1401 




dblset* 


11712 


77 


7777 


1402 


ATA6 


777777* 


11713 


37 


7777 


1403 




377777* 


11714 


00 


0001 


1404 




1* 


11716 


00 


uooo 


I4u5 

1406 


MUL 


0 ^ 

PR0G*DARFWS*1MAR63 








1407 




SET ADR*2Q53 


11716 


ou 


uooo 


1410 


MUL 


0*0 



c 
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error jump 
EXIT 



TEST BORROW 
SET AL TO 777777 
SET AU TO 377777 

double add 
did borrow occur 
yes continue 
error jump 
correct answer 
double add 
did borrow occur 
error jump 

error jump 
error jump 
double subt 
did borrow occur 

YES EXIT 

error stop 



ERROR EXIT 



05 



TEST MULTIPLY SIGN 
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11717 70 0001 1411 ENTALK+l 



11720 


24 


1745 


1412 


11721 


66 


1735 


1413 


11722 


67 


1735 


1414 


11723 


24 


1746 


1415 


11724 


64 


1735 


1416 


11725 


65 


1735 


1417 


11726 


24 


1746 


1420 


11727 


66 


1735 


1421 


11730 


67 


1735 


1422 


11731 


70 


7776 


1423 


11732 


24 


1745 


1424 


11733 


65 


1735 


1425 


11734 


66 


1744 


1426 


11735 


50 


5601 


1427 


11736 


50 


5020 


1430 


11737 


34 


1741 


1431 


11740 


55 


1716 


1432 


11741 


46 


2367 


1433 


11742 


44 


2370 


1434 


11743 


76 


0364 


1435 


11744 


55 


1716 


1436 


11745 


00 


0002 


1437 


11746 


77 


7776 


1440 








1441 


> 






1442 


11747 


00 


0000 


1443 


11750 


10 


2052 


1444 


11751 


70 


0005 


1445 


11752 


26 


2053 


1446 


11753 


02 


2055 


1447 


11754 


61 


1765 


' 1450 


11755 


50 


5601 


1451 


11756 


50 


5020 


1452 


11757 


34 


1761 


1453 


11760 


1 


1747 - 


1454 



) 



MUUAL*MUL3 

JPAUNG*MUL1 

JPALNG+MUL1 

MULAL*MUL4 

JPAUP*MUL1 

JPALP*MUL1 

mulau+muu 

JPAUNG*MUL1 

JPALNG*MULi 
ENTALK*7776 
MULAU*MUL3 
JPALP*MUL1 
JPAUNG*MUL'l t? Hh 1 - ; - , 
MUL1 ST0P*1 

SKP*20 
JP*LQK+2 

I JP+MUL ? 

STRAU+PTN1 
STRAL*PTN2 
RJP*ERMSG 
UP*MUL 
MUL3 2* 

MUL4 777776* 

DIV PR0G*0ARFWS*1MAR63 

SET ADR*2076 
DIV 0*0 

ENTaU*UTAB 

ENTALK*5 

DIVA*DTAB1 

CMAL*0TAB3 

JPEQ*L0K+11 

ST0P+1 

SKP*20 

JP*L0K+2 

IJP+DXV X 
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SET AL TO 000001 

TEST FUNC + AND + 
ERROR JUMP 
error JUMP 
TEST FUNC + AND - 
ERROR JUMP 
error JUMP 
TEST FUNC - AND - 
error JUMP 

ERROR JUMP 
SET AL TO 
TEST FUNC 
ERROR JUMP 
EXIT 

ERROR STO 



error exit 



TEST DIVIDE SIGN 
CLEAR AU 
SET AL TO 000005 
TEST FUNC A/Y 
IS AL CORRECT 
YES CONTINUE 
error STOP 

' tX> ! 



) 




i 
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( 



i 11761 


46 


2367 


1455 


j 11762 


44 


2370 


1456 


! 11763 


76 


0364 


1457 


11764 


55 


1747 


1460 


11765 


06 


2135 


1461 


11766 


63 


1755 


1462 


11767 


10 


2052 


1463 


11770 


70 


0005 


1464 


1 1771 


26 


2054 


1465 


11772 


02 


2056 


1466 


11773 


61 


2004 


1467 


1 11774 


50 


5601 


1470 


1 11775 


50 


5020 


1471 


1, 11776 


34 


2000 


1472 


! 11777 


55 


1747 


1473 


! 12000 


46 


2367 


1474 


12001 


44 


2370 


1475 


12002 


76 


0364 


1476 


12003 


55 


1747 


1477 


12004 


50 


4722 


1500 


12005 


02 


2055 


1501 


12Q06 


61 


2011 ' 


1502 


1 12007 


50 


4722 


1503 


< 12010 


34 


1774 


1504 


12011 


10 


2264 


1505 


12012 


70 


7772 


1506 


12013 


26 


2053 


1507 


12014 


02 


2056 


1510 


12015 


61 


2026 


1511 


12016 


50 


5601 


1512 


12017 


50 


5020 


1513 


12020 


34 


2022 


1514 


12021 


55 


1747 


1515 


12022 


46 


2367 


1516 


12023 


44 


2370 


1517 


12024 


76 


0364 


1520 






$TRAU*PTNl 
STRAL*PTN2 :, 

rjp*ermsg ; :•;• 

I JP*DI V 
CMSK*TPATXtl 
JPN0T*L0K-U. 
ENTAU*QTAB 

ENTAU*5 •’•UV 
, DIVA*0TAB2 . • 

CKAL*DTAB4 
JP EQ *L 0 K + 1 i 

• . . . V.‘. 

DIV1 STOP*! //<•• 

skp*2o . :: 

JPUOK+2 
IJP*DlV : 
STRAU*PTNt ; < ' 
STRAU»PTN2 : ; 
RJP*ERMSG 'i,-- ., 

I JP*DIV 

L5HA*22 

CMAL*DTAB3 

JPEQ*L0K+3 

LSHA*22 

JP*DlVi 
ENTAU+DVT12 
ENTaLK*7772 
diva*dtabi 

cmal*dtab4 

JPEQ*LOK+ll 
STOP*! 

SKP+20 
JP*L0K+2 
I JP*DI V 
STRAU*PTNl 
STRAL+PTN2 

RJP*ERMSG 





i . 
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ERROR EXIT 
15 AU CORRECT 

CLEAR AU 

!set AL TO 000005 
TEST FUNC A/-Y 
IS AL CORRECT. 
YES CONTINUE . 

'ERROR STOP 



i 

i 

j 

i 

i 






error exit 

EXCHANGE REGS 
IS AU CORRECT 
YES CONTINUE 
EXCHANGE REGS 

ERROR jump 
SET AU TO 777777 
SET AL TO 777772 
TEST FUNC -A/Y 

IS AL CORRECT 
YES CONTINUE 
ERROR STOP 
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12025 


55 


1747 


1521 


12026 


06 


2135 


1522 


12027 


63 


2016 


1523 


12030 


10 


2264 


1524 ■ 


12031 


70 


7772 


1525 


12032 


26 


2054 


1526 


12033 


02 


2055 


1527 


12034 


61 


2045 


1530 


12.035 


50 


6601 


1531 


12Q36 


50 


5020 


1532 


12037 


34 


2041 


1533 - 


12040 


55 


1747 


1534 . 


12041 


46 


2367 . 


1535 • 


1 . 

1 12042 


*4 


2370 


1536 


1 12043 


76 


0364 


1537 


| 12044 


55 


1747 


154Q 


12045 


50 


4722 


1541 


12046 


02 


2056 


1542 


12047 


61 


2044 


1543 


12050 


50 


4722 


1544 


| 12051 


34 


2035 


1545 


12052 


00 


0000 


1546 


12053 


00 


0004 


1547 


1 12054 


77 


7773 


1550 


; 12055 


00 


0001 


1551 


12056 


77 


7776 


1552 

1553 

1554 


12057 


00 


oooo 


1555 


12060 


36 


0000 


1556 - 


12061 


40 


2267 


1557 


, 12062 


10 


2267 


1560 


12063 


13 


2270 


1561 


12064 


27 


2311 


1562 


12065 


61 


2076 


1563 


12066 


. 50 


5601 


1564 


1 1206? 


\o 


5020 


1565 



IJP*QlV 

CMSK*TPAUtl- > 

, dPN0T*L0K-iV.<i 
ENTAU+PVT12 v-Vy-.‘ : : 

ENTALK*7772 -f "X 

diva*dtab2 J '-: 
cmal*dtab3 : : 

J P E Q * L 0 K + 1 1 > v . •• • , 
DIV2 STOP*! 

SKP*20 

jp*uok+2 ; : 

I JP*DIV , v' 

strau*ptni ;> ; .. 

* . ' •; . ; ’ ; •• •* 

STR AU*P v/([ir 

RJP*ERMSO f ' 
I JP*DI V \ 

LSHA*22 : 
CMAL*DTAB4 , < 
JPEQ*DlV2*7 
USHA*22 ■ -;ve 
JP*0IV2 

DTAB O* 

OTABl 4* 

DTAB2 777773* 

0TAB3 1* 

DTAB4 777776* 

OVT pR0G*DARFWS*iMAR63 

SETADR*2!56 
OVT 0*0 

entbk*o 

CL*DT3 

DVT1 ENTAU*DT3 

ENTALB*OTl 
0 IVaB* 0T2 
JPAL2*L0k+ll 
STOP*! 

SKP*20 / \ 



ifc«r :^K*rvet.**sta!*- ivrx**w* - ’-a*. *• 
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ERROR EXIT 
IS AU CORRECT 

SET AU TO 777777 
SET AL TO 777772 

' TEST FUNC -A/-Y 
IS AU CORRECT 
YES CONTINUE 
ERROR STOP 



ERROR EXIT 
EXCHANGE REGS 
IS AU CORRECT 
EXIT ^ 

EXCHANGE REGS 
ERROR JUMP 



TEST DIVIDE 
CLEAR B 

CLR ERROR DISPLAY 
CLEAR AU 
PATTERN TO AL 
TEST DIVIDE 
IS AL CORRECT 

error STOP 

' ' ) 
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12070 


34 


2072 


1566 




jp*L0K+2 : 


12071 


55 


2057 


1567 




I JP*DVT ■ 


12072 


46 


2367 


1.570 




STRAU*PTN1% • . 


12073 


44 


2370 


1571 




STRAL+PTN2.:;. 


12074 


76 


0364 


1572 




RJP+ERMSG • 


12075 


55 


2057 


1573 ... 




^P*Dvr ■ t 


12076 


13 


2270 


1574 


. \ ■ 


ENTALP*DT®v : ^V 


12077 


06 


2135 


1575 : 




CMSK*TPATltl^:r ;> '••• 


12100 


61 


2105 


1576 




jpeq*lok+s > . ; • •. . 


12101 


12 


2267 


1577 




ental*dt3 w 


12102 


11 


2332 


1600 


. V; ‘ 


ENT AUB*DT 4 ; yV •' . 


12103 


51 


2332 


1601 , 




SLSET+DT4 ; ■ >. 


12104 


|4 


2267 


1602 




STRAL*DT3 , V 


12105 


?$6 


2265 


1603 • 




BSK*DVT13 


12106 


'V ' 

34 


2062 


1604 




JP*DVT1 


12107 


12 


2267 


1605 




■ ENTAL*DT3 V'VV:: 


12110 


61 


2121 


1606 




JPALZ*LOK+U: 


12111 


50 


5601 


1607 




STOp*l 


12112 


50 


5020 


1610 




SKP*20 . 


12113 


34 


2115 


1611 • 




JP+LQK+2 . • 


12114 


55 


2057 


1612 




I JP*DVT 


12115 


10 


0437 


1613 




entau^pat , 


12116 


46 


2367 


1614 




STRAU*PTN1 


12117 


44 


2370 


1615 




STRAL*PTN2 


12,120 


76 


0364 


1616 




RJP+ERMSG ' 


12121 


55 


2057 


1617 

1620 

1621 


consta 


I JP*DVT 

PR0G*DARFWS*1MAR63 
SET ADR*22Q4 


12122 


37 


7777 


1622 


TWD1 


377777* 


12123 


37 


7776 


1623 


TWD2 


377776* 


12124 


00 


0000 


1624 


SHWDl 


0* 


12125 


00 


0000 


1625 


SHWD2 


0* 


12126 


11 


2152 


1626 


INST 1 


ENTAUB*TAB3 


12127 


00 


0021 


1627 


INDEX 


21* 


12130 


00 


0001 


1630 


INDEX1 


1* 


12131 


00 


0021 


1631 


INDEX2 


21* 



( 
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error exxt 

CORRECT TO AL. 

; IS AU CORRECT 
, YES CONTINUE 
. ERROR bits 
new ERROR BIT, 

SET NEW ERROR BIT 
SAVE ERROR BITS 
all patterns CHECKED 

NO CONTINUE 
ANY ERRORS 
NO EXIT 
ERROR STOP 



ERROR EXIT 



& 1 

i 

r 



4* 
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12132 


00 


0000 


12133 


00 


0000 


12134 


00 


0000 


12135 


77 


7777 


12136 


25 


2525 


12137 


52 


5252 


■* 12140 


70 


7070 


12141 


07 


0707 


12142 


00 


0000 


12143 


77 


7777 


12144 


25 


2525 


12145 


52 


5252 


12146 


70 


7070 


12147 


07 


0707 


12150 


12 


5252 


12151 


65 


2525 


12152 


77 


7773 


12153 


77 


7767 


12154 


77 


7757 


12155 


77 


7737 


12156 


77 


7677 


12157 


77 


7577 


12160 


77 


7377 


12161 


77 


6777 


12^62 


77 


5777 


12163 


77 


3777 


12164 


76 


7777 


12165 


75 


7777 


12166 


73 


7777 


12167 


67 


7777 


12170 


57 


7777 


12171 


37 


7777 


12172 


77 


7776 


12173 


77 


7775 


12174 


77 


7773 


12175 




)7767 



, wwiswr.-^tw vtac*- ■* . 



1632 


TPCK 


o* 


1633 * 


TPCK1 


0* 


1634 


TP ATI 


o* 


1635 




777777* 


1636 




252525* 


1637 




525252* 


1640 




707070* 


1641 . 




070707* 


1642 


TPAT2 


0* "i 


1643 ' 




777777 * 


1644 


• 


252525* 


1645 




525252* 


1646 




707070* 


1647 




070707* 


1650 ' 


TPAT3 


125252* 


1651 




652525* 


1652 


TAB3 


777773* 


1653 




777767* 


1654 




777757* 


1655 




777737* 


1656 




777677* 


1657 




777577* 


1660 




777377* 


1661 




776777* 


1662 




775777* 


1663 




773777* 


1664 




767777* 


1665 




757777* 


1666 




737777* 


1667 




677777* 


1670 




577777* 


1671 




377777* 


1672 




777776* 


1673 




777775* 


1674 




777773* 


1675 




777767* 
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( 



12176 


77 


7757 


1676 




777757* 


12177 


77 


7737 


1677 




777737* 


12200 


77 


7677 


1700 




777677* 


12201 


77 ■ 


7577 


1701 




777577* 


.12202 


77 7377 


1702 




777377* 


12203 


77 


6777 


1703 - 




776777* 


i >12204 


77 .5777 


1704 . 




775777* 


12205 


77 


3777 


1705 . 




773777* - 


12206 


76 


7777 


1706 




767777* 


12207 


75 


7777 


1707 




757777* 


12210 


73 


7777- 


1710 - 




737777* 


12211 


67 


7777 


1711 




677777* 


12212 


57 


7777 


1712 




577777* 


12213 


37 


7777 


1713 




377777* 


12214 


77 7776 


1714 ~ 




777776* 


12215 


77 


7775 


1715 




777775* 


12216 


37 


7776 


1716 


TAB4 


377776* 


12217 


37 


7774 


1717 




377774* 


12220 


37 


7770 


1720 




377770* f 


12221 


37 


7760 


1721 




377760* f 


12222 


37 


7740 


1722 




377740* 


12223 


37 


7700 


1723 




377700* 


12224 


37 


7600 


1724 




377600* 


; 12225 


37 


7400 


1725 




377400* 


12226 


37 


7000 


1726 




377000* 


! 1?227 


37 


6000 


1727 




376000* 


' 12230 


37 


4000 


1730 




374000* 


12231 


37 


0000 


1731 




37*0 


12232 


36 


0000 


1732 




36*0 


12233 


34 


0000 


1733 




34*0 


12234 


30 


oooo 


1734 




30*0 


12235 


20 


oooo 


1735 




20*0 


12236 


00 


0000 . 


1736 




0* 


12237 


37 


7777 


1737 




377777* 


i 

12240 


00 


oooo 


1740 


TAB5 


RESERV*22 


12262 

< 


00 


oooo 


1741 


DVT10 


0* 















s' 

( ( 
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1226^ 


00 


oooo 


1742 . 


DVTll 


Q* 


,V «.*. 


12264 


77 


7777 


1743 ■ • 


DVT12 


777777* 


i !*! 

!, !• <£:■ 


12265 


00 


0020 


.1744 .. 


DVT13 


20* 


i; , 


12266 


00 


0000 


1745 . 


DVT14 


0* 


I- ‘ •• ’* 

rf' ■ * 

V ' V 


12267 


00 


oooo 


1746 


QT3 


0* 1 


4 •' . . 


12270 


00 


0001 


1747 


DTI 


1* 


. 


12271 


00 


0002 


1750 




. 2* '. 


\-.v ■ 


12272 


00 


0005 


1751 




5* 




12273 


00 


0012 


1752 




12* ; 




12274 


00 


0025 


1753 




25* 


■■m 


12275 


oo 


0052 


1754 




" 52* 


. ‘&40 

• -h! 


12276 


00 


0125 


1755 




125* 




12277 


00 


0252 


1756 




252* . 


• •» * • 1 


12300 


00 


0525 


1767 




525* 


• ft 


12301 


00 


1252 


1760 




1252* 




12302 


OQ 


2525 


1761 




2525* 


• H 


12303 


00 


5252 


1762 




5252* 


:jr. * 


12304 


01 


2525 


1763 




12525* 




12305 


02 


5252 


1764 




25252* 




12306 


05 


2525 


1765 




52525* 


Vr 


12307 


12 


5252 


1766 




125252* 


U' 


12310 


25 


2525 


1767 




252525* 


i’ ; 


12311 


00 


0002 


1770 


DT2 


2* 




12312 


00 


0003 


1771 




3* 




12313 


00 


0006 


1772 




6* 




12314 


00 


0014 


1773 




14* 




12315 


00 


0030 


1774 




30* 




12316 


00 


0060 


1775 




60* 




12317 


00 


0140 


1776 




140* 


■ 


12320 


00 


0300 


1777 




300* 




12321 


00 


0600 


2000 




600* 




12322 


00 


1400 


2001 




1400* 




12323 


00 


3000 


2002 




3000* 




12324 


00 


6000 


2003 




6000* 




12325 


01 


4000 


2004 




14000* 




12326 


03 


oooo 


2005 




30000* 
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( 



( 



12327 


06 


0000 


2006 




6Q00Q* 


12330 


14 


0000 


2007 


r 


14*0 A'X-VVv 


12331 


30 


0000 


2010 .. 




30*0 y7-v/ v V ; 


12332 


00 


0001 


2011 , 


PT4 


l* 


12333 


00 


0002 


20i2 . 




2*. . . 


12334 


00 


0004 


2013 > 




4* 


12335 


00 


0010 


2014 


» •• • ' 


10 * ,&••• 


12336 


00 


0020 


2015 


. .» 


20 * ^ 


12337 


00 


0040 


2016 m 




40* - 5 • 


12340 


00 


0100 


2017 • 




100 * • ' K - 


12341 


00 


0200 


2020 




• 200* $■:' } 


12342 


00 


0400 


2021 




400 * 


12343 


00 


1000 


* 2022 1 




1000* 


12344 


00 


2000 


2023 




2000* . 














12345 


00 


4000 


2024 




4000* 


12345 


01 


0000 


2025 




' 10000 * 


12347 


02 


0000 


2026 




20000* V : ; ^ ; . 


12350 


04 


0000 


2027 




40000* 


12351 


10 


0000 


2030 




100000* 


12352 


20 


0000 


2031 




20*0 'V 


12353 


00 


0000 


2032 


FLAG 


RESERV*13 • ' 


12366 


00 


0000 


2033 


ALPARM 


0* 


12367 


00 


0000 


2034 


PTN1 


0* 


12370 


00 


0000 


2035 


PTN2 


0 * ; ■ 


12371 


00 


0037 


2036 


K1 


000037* 


12372 


77 


7700 


2037 


K2 


777700* 


12373 


00 


0001 


2040 


K3 


000001* 








2041 




REMARK*TYPT FOR 1232 OR 1532 


12374 


00 


0000 


2042 


TYPT 


0 * 


12375 


75 


2436 


2043 




STRSR*T$PT20 


12376 


46 


2464 


2044 


’ * 


STRAU*T$PT3 


12377 


44 


2465' 


2045 1 




STRAL*T$PT4 


12400 


42 


2466 


2046 




STRB*T4PT5 


12401 


70 


0003 


2047 




ENTALK*3 


12402 


76 


2447 


2050 




RJP*T*PT12 


12403 


32 


2374 


2051 


TSPT 1 


ENTB*TYpT 


12404 


37 


0001 


2052 




ENTBKB*! 


3 fH> 










• 



f : 
J 



I 

I 

•j 

1 



i 
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12405 42 2374 

124Q6 5q 7310 
12407 11 0000 

12410 50 7300 

12411 36 0002 

12412 70 0000 

12413 50 4706 

12414 02 2467 

12415 61 2427 

12416 71 0040 

12417 02 2525 

12420 63 2424 

12421 70 0015 

12422 76 2440 

12425 70 0012 






205? 




STRB»TYPT s 


2054 




ENTSR*10 


2055 




entaub*o •v.:..'. 


2056 . 




entsr*o V ; ; r"v 


2057 




ENTBK*2 'V* v ; 


2060 « 


T*PT2 


ENTaLK*0 '• v ; 


2Q61 




LSHA*6 

s "» " 


2062 




CMAL*T*PT 6 i ' 


2063 ... 




JPEQ*T$PT22 : 'V<,; 


2064 - 


RNQOP 


ADDALK*40 


2065 • 




CMAL*M136 


2066 




jpnot*LoK+4 ■ 


2067 ■ 




entalk*i5 


2070 




rjp*t$pt7 


2Q71 




ENTALK*12 ‘ 

f 1 , .■ ‘ 



12424 


76 


2440 


2072 




rjp*T$PT 7 AAVy;-.-. 


12425 


73 


2412 


2073 


TSPT21 


BJP*T$PT2 v\ : 


12426 


34 


2403 


2074 




jp«WT1 , - . ; 


12427 


70 


0001 


2075 


T$PT22 


ENTALK*1 5 


12430 


76 


2447 


2076 




RJP+TSPT12 


12431 


14 


2374 


2077 




addal*typt 


12432 


44 


2374 


2100 




STRAL*TYPT 


12433 


10 


2464 


2101 




ENTAU*T$PT3 


12434 


12 


2465 


2102 




ENTAL*T$PT4 


12435 


32 


2466 


2103 




ENTB*T5PT5 


12436 


50 


7300 


2104 


T$PT20 


ENTSR*Q 


12437 


55 


2374 


2105 




I JP*TYPT 


12440 


00 


0000 


2106 


T$PT7 


0* 


12441 


76 


2456 


2107 




RJP#T$PT13 


12442 


44 


2471 


2110 


• ■ • ■, • 


stral*t$ptii 


12443 


SO 


1200 


2111 t 


. T$1 


BUF0UT*CHAN*AD*1*T*PT11 


12444 


01 


2471 








12445 


01 


2471 








12446 


55 


2440 


2112 




IJP*T$PT7 


12447 


00 


0000 


2113 


T$PT12 


0 * 


12450 


( ^ 


2456 


2114 




RJP*T$PT13 \ 
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MODIFIED TO RJP*CONVER IF 1232 SELECTED 1 
CR-LF? ! 

NO 
CR 
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( 



12451 , 


44 


2471 


12452 


.50 


1300 


12453 


01 


2471 


12454 


01 


2471 


12455 


55 


2447 


12456 


00 


0000 


12457 


50 


2300 


12460 


34 


2457 


12461 


50 


2200 


12462 


34 


2461 


12463 


55 


2456 


12464 


00 


OOOQ 


12465 


00 


0000 


12466 


00 


0000 


12467 


00 


0077 


12470 


00 


0136 


12471 


00 


•0000 


12472 


00 


ooop 


12473 


42 


2522 


12474 


36 


0000 


12475 


71 


0040 


12476 


02 


2525 


12477 


63 


2504 


12500 


70 


0004 


12501 


76 


2440 


12502 


70 


0003 


12503 


34 


2520 


12504 


44 


2526 


12505 


13 


2527 


12506 


52 


2523 


12507 


50 


4211 


12510 


02 


2526 


12511 


61 


2516 


12512 


56 


2524 


12513 


34 


2505 


12514 


12 


2526 







2115 




STRAL*T$PT11 ; ■;/ 




2116 , 


T*2 


EXFCT*CHAN*AD*i*TiPTU 

; v , v v 

. IJP*TSPT12 ; V' !; : : 

0*. ; ll v •. 

skpfin*c;haUv';- • 

jp^lok-i 

SKPOlN^CHAN.^K^p; . 




2117 

2120 

2121 

2122 . 
2123 ... 


TSPT13 

T$3 

T*4 




2124 

2125 

2126 t 

2127 m 

2130 

2131 

2132 

2133 • 


T$PT3 

T$PT^ 

T$PT5 

TSPT6 

TSPT61 

T$PTH 


JP*L0K-1 

I JP*T*PT13 j .v:v v- • 

0* V VHV.-' . '*• 

o* ' 

0* 

77* • 

0*136 ' 

Q* ■ ; •/ - 


• 


2134 r 

2135 

2136 

2137 

2140 

2141 

2142 

2143 


CONVEX 


0* ■ • 
STRB*COUNTRf • 

ENTBK*0 ■ 

ADDALK*40 V; 

CMAL+M136 

JPN0T*L0K+5 

ENTAU+4 

RJP*T$PT7 


ADD ASCII BIAS 

CR-LF 

NO 

CR 


2144 

2145 

2146 

2147 

2150 

2151 

2152 

2153 


C0NV1 


ENTALK*3 

JP+C0NV3 

stral*mdum 

ENTALB*CONST 
SLCL*CT 177 
RSHAL*9D 
CMAL*MUUM 
JPEQ*C0NV2 


LF 


2154 

2155 - 

2156 




BSK*M76 
JP+C0NV1 V 

ental+mdum 
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12515 


50 


5640 


2157 




STQP+40 




12516 


13 


2527 


2160 


C0NV2 


ENT ALB*C0N5T 


12517 


52 


2467 


2161 




SLCU*T»PT6 


12520 


32 


2522 


2162 


,SQNV3 


E N T B * C 0 U N T R .- ' . 


12521 


55 2472 


2163 - 




IJP*CONVER.r; T f ,r ' 


12522 


00 


0000 


2164 


cguntr 


0# 


i'i-v; - •• * 


12523 


17 


7000 


2165 


CT177 


177000* 


.'j.'-yv.i . J . 

*. '• "* *. i ' 


12524 


00 


0100 


2166 .... 


M76 


00Q100* 


V£ v -‘. -• 

.H'Hai ' . , T* . ' . . •• 


12525 


00 


0136 


2167 . 


Ml 36 


000136* . 


•VTv'T. - i , 


12526 


00 


0000 


2170 • 


MDUM 


0* 




12527 


10 


1006 


2171 


CONST . 


1Q1Q06* *' 


iZr&fZ i&y ' ■ 

fv - 

\r<r . ,1 ... 


12530 


10 


2007 


2172 




102007* 




12531 


10 


3010 


2173 




103010* 


■ ■■■ 


12532 


10 


4011 


2174 


t •• 


104011* , 




12533 


10 


5012 


2175 


V' • * 


105012* . 


’ •'>?:. ■*' f* ' * ' r f i '*■ • 

4 . t*. . ■’ 


•12534 


10 


6013 


2176 


■ f 


106013* 


-Yr 7 »T . •••■■. •^- 1 - ■ 

J. 1 . ' 


12535 


10 


7014 


2177 




107014* 


S ..v- ''..ii 


12536 


11 


0015 


2200 




110015* 


7 ! 'y ' :'Y: ;: - 
' ; ; 


12537 


11 


1016 


2201 • 




111016* 




12540 


11 


2017 


2202 




112017* 


■ , 


12541 


11 


3020 


2203 




113020* 




12542 


11 


4021 


2204 




114021* 




12543 


11 


5022 


2205 




115022* 




12544 


11 


6023 


2206 




116023* 


. ’• . * v 


12545 


11 


7024 


2207 




117024* 




12546 


12 


0025 


2210 




120025* 




12547 


12 


1026 


2211 




121Q26* 




12550 


12 


2027 


2212 




122027* 




12551 


12 


3030 


2213 




123030* 


r . * ' 


12552 


12 


4031 


2214 




124031* 


■ . • , 


12553 


12 


5032 


2215 




125032* 




12554 


12 


6033 


2216 




126033* 




12555 


12 


7034 


2217 




127034* 


• : ■■ ■ .. . . ■ 


12556 


13 


0035 


2220 




130035* 


i ■ * x 


12557 


13 


1036 


2221 




131036* 




12560 ( 


1 


2037 


2222 




132037* 


; ■ ■' ) 




• ’itf ‘ - 




.... . 


• — — — 
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5 



( 



i 



i 12561 


01 


5004 


2223 . 


015004* 


| 12562 


01 


2003 


2224 


012003* 


! 12563 


13 


7076 


2225 . 


137076* 


12564 


05 


2050 


2226 , 


052050* 


. 12565 


04 


7072 


2227 ■ 


047072* 


12566 


05 


6075 ' 


2230 . 


056075* 


12567 


04 


0005 


2231 , 


040005* 


12570 


17 


7077 


2232 «. 


177077* 


12571 


06 


0060 


2233 


060060* 


12572 


06 


1061 


2234 » 


061061* 


12573 


06 


2062 


2235 


062062* 


12574 


06 


3063 


2236 


063063* 


; 12575 


06 


4064 


2237 


064064* 


1 12576 


06 


5065 


2240 


065065* 


i 12577 


06 


6066 


2241 


066066* 


! 12600 


06 


7067 


2242 


067067* 


| 12601 


07 


0070 


2243 


070070* 


12602 


07 


1071 


2244 


071071* 


12603 


05 


0051 


2245 


050051* 


12604 


05 


1040 


2246 - 


051040* 


; 12605 


05 


3042 


2247 


053042* 


1 12606 


05 


4056 


2250 


054056* 


12607 


05 


5041 


2251 


055041* 


12610 


05 


7074 


2252 


057Q74* 


1 12611 


07 


2053 


‘ 2253 


072053* 


12612 


07 


3073 


2254 


073073* 


■ 12613 


07 


4043 


2255 


074043* 


12614 


07 


5044 


2256 


075044* 


12615 


07 


6045 


2257 


076045* 


■ 12616 


07 


7054 


2260 


077054* 


, 12617 


10 


0057 


2261 


100057* 


12620 


04 


4047 


2262 


044047* 


12621 


05 


2050 


2263 


052050* 


12622 


13 


5046 


2264 


135046* 


12623 


13 


4001 


2265 


134001* 


■ 12624 


04 


5002 


2266 


045002* 


12625 


04 


2052 


2267 


042052* 



c . , c 
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12626 


04 


1055 


2270 


12627 


13 


6050 


2271 ■ 

2272 


12630 


00 


0000 


2273 


12631 


75 


2721 


2274 


12632 


46 


2723 


2275 . 


12633 


44 


2724 


2276 .i 


12634 


42 


2725 


2277 . 


12635 


70 


0003 


2300 ... 


12636 


76 


2752 


2301 


12637 


32 


2630 


2302 


12640 


37 


0001 


2303 


12641 


42 


2630 


2304 


12642 


50 


7310 


2305 • 


12643 


11 


0000 


2306 


12644 


50 


7300 


2307 


12645 


70 


0000 


2310 


12646 


50 


4703 


2311 


12647 


61 


2713 


2312 


12650 


44 


2726 


2313 


12651 


32 


2726 


2314 


12652 


35 


2652 


2315 


12653 


34 


2670 


2316 


12654 


34 


2702 


2317 


12^55 


34 


2706 


2320 


12656 


34 


2704 


2321 


12657 


34 


2710 


2322 


12660 


70 


oooo 


2323 


12661 


50 


4717 


2324 


12662 


44 


2726 


2325 


12663 


32 


2726 


2326 


12664 


50 


7310 


2327 


12665 


11 


0000 


2330 


12666 


50 


7300 


2331 


12667 


34 


2711 


2332 


12670 


. ^ 


oooo 


2333 



041055* v/, : * % 

136050* : 4; t 

REMARK*TYPC FQR 
TYPC 0* 

STRSR*T$PC2P v 
STRAU*T$PC1? 

STRAU*T$PCl^ri 
STRB*T*PC14 
entalk*3 4 V;; 
RJP*T$PC24 

TSPCl ENTB*TYPC » 

ENTBKB*! ZfX’. 
STRB*TYPC 'JfSX 

entsr*io mm 
entaub*o 

ENTSR*0 

entalk*o ; 

LSHA*3 
JPALZ*T$PC11 
STRAL*TSPCi5 
ENTB*T*PC15 
T$PC2 JPB*TSPC2 

JP*TSPC3 
JP*T$PC4 
JP*TSPC6 
JP*T$PC5 
JP*T*PC7 

entalk*o 

LSHA*17 
STRAL*T$PC15 

ENTB*TSPC15 
ENTSR*l0 
ENTAUB*0 
ENTSR*G 
JP*TSPC1Q 
T$PC3 ENTALK*0 
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ENABLE KEYBOARD 

' advance exit aDDR 




next code WORD TO aU 

CLR SR ACTIVE 




CODE DIGIT TO AL 
ALL DONE IF ZERO 
TEMP STORE 



KYBD COMMAND 



A 

A UPPER 
A LOWER 
B 
Y 



CONTENTS OF Y 

) 



1 




l 
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( 



V J 



( 



12671 


50 


4717 


2334 


12672 


61 


2700 


2335 - 


12673 


70 


0015 


2336 


12674 


76 


2741 


2337 


12675 


70 


0012 


2340 


12676 


76 


2741 


2341 


12677 


34 


2637 


2342 


12700 


70 


0040 


. 2343 


12701 


34 


2676 


2344 ’ 


12702 


10 


2723 


2345 


12703 


76 


2727 


2346 


12704 


10 


2724 


2347 


12705 


34 


2711 


2350 , 


127Q6 


IQ 


2723 


2351 


12707 


34 


2711 


2352 - 


12710 


10 


2725 


2353 


12711 


76 


2727 


2354 


12712 


34 


2637 


2355 ■ 


12713 


70 


0001 


2356 


12714 


14 


2630 


2357 


12715 


44 


2630 


2360 


12716 


10 


2723 


2361 


12717 


12 


2724 


2362 


12720 


32 


2725 


2363 


12/21 


50 


7300 


2364 


12722 


55 


2630 


2365 


12723 


00 


0000 


2366 


12724 


00 


0000 


2367 


12725 


00 


0000 


2370 


12726 


00 


0000 


2371 


12727 


00 


0000 


2372 


12730 


70 


0005 


2373 


12731 


44 


2726 


2374 


12732 


70 


0000 


2375 


12733 


50 


4703 


2376 


12734 


71 


0060 


2377 



■ T '• r 1"- i‘i y «!• *T ' i*i « ■>■ *•'« t-** Vi . 



lshausd ■ 

JPAUZ*T$PCSp ; V: 
Ts$$i ■ ENTALK*15 ; 

rjp*t$pc2j. : - v 

t*$*2 entauk+12 . 

RJP^T$PC2i:^V'^ ’ • 
jp*tspci • 

T*PCSP ENTALK*40 V ? r 'V'- 

Jr'j . • 

jp*lok**3 i-il 

TSPC4 ENTAU*T$PCi? V . ; V 

RJP*TiPC16 . • ' • •• 

T*PC5 ENT AU»T$PC 13 r 

JP^TSPCIO •: 

T*PC6 ENTAU*T$PC^^^J^M 
JP*T$PClO ,V ; 

T*PC7 ENTAU»TiPCl4f vr ; 

T*PClO RJP*T$PC16 

JP*T*PCl 
T$PCU ENTALK*1 

ADDAL*TYPC 

stral*typc 

ENTAU*T$PCi2 

ENTAL*T$PCl3 

ENTB*T*PC14 

TSPC20 ENTSR+Q 

IJP*TYPC 
T$PC12 0* 

T4PC13 0* 

T4PC14 0 * 

TSPC15 0* 

T4PC16 0* 

ENTALK*5 

$TRAL*TSPC15 

TSPC17 ENTALK*Q 

LSHA*3 
ADDALK+60 



( 
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. CQNV 6 OCT DIGITS TO KYBD CD-TYPE' 



I 

! 



CONVERT-TYPE 6 OCT DIGITS 



(X) 



MAKE FIELD DATA DlGl ( T 
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1273& 

12736 

12737 

12740 

12741 

12742 

12743 

12744 

12745 

12746 

12747 

12750 

12751 

12752 

12753 

12754 

12755 

12756 

12757 

12760 

12761 

12762 

12763 

12764 

12765 

12766 

12767 



12770 

12771 

12772 

12773 

12774 
12775t 



76 


2741 


2400 




57 


2726 ' 


2401 




34 


2732 


2402 ■ 




55 


2727 


2403 ,, 


r$RC21 


00 


0000 


2404 


76 


2762 


2405 




44 


2751 


2406 


T*S1 


50 


-1200 


2407 . 


01 


2751 






01 


2751 




* V • ' ■ 


76 


2762 


2410 ■ 


' 5 . 


55 


2741 


24U 


T$PC23 


00 


0000 


2412 ■ 


00 


0000 


2414 • 


T*PC24 


76 


2762 


2414 




44 


2751 


2415 




50 


1300 


2416 


TS* 2 


01 


2751 




, 


01 

76 


2751 

2762 


2417 




55 


2752 


2420 


T$PC25 


00 


0000 


2421 


50 


2300 • 


2422 


T$$3 


34 


2763 


2423 


T$$4 


50 


2200 


2424 


34 


2765 


2425 





RJP*T$PC21 , '• 

ISK*T$PC153; ' 

JP*T*PC17 r'.« ; 

' IJP*T$PC16-:.f;f ; • . ; 

0* 'Yfc.r.T: 

RJP*T$Pca5$^i»> 
STRAL*T$PQ2^ • • • 
BUF0UT»CHANWH*T*PC23 

rjp*t$pc2s^® • 

IJP*T$PC2l , : < . 

o* •• , ■ 

o* > 

RJP4TSPC25 

5tral*t$pc23 ;, v.:.-'.^' ;• • 

EXFCT*CHAN*A0n*T*PC23 



RdP*T$PC25 

IJP+T4PC24 

0* 

SKPFIN*CHAN 

JP*L0K“1 

SKP0lN*CHAN 

v)P*L0K-l 



TYPE IT 

ARE 6 TYPED ■ 

NO 

YES 

SEND KYpD CODE IN aL 



DO KYBD FCT CODE 



WAIT ON ACT FCT-DATA BUFS 



55 2762 2426 

2427 
2430 
24.31 

00 0000 2432 TYPE 

12 2366 2433 

50 4203 2434 

52 2371 2435 



IJP*T$PC25 

REMARK*INSERT SELECTED I/O CHANNEL NUMBER 
REMARKMN ALL I/O COMMANDS* 

REMARK*M0DlFY FOR 1232/1532 INTERCHANGE 
0 ^ 

ENTAL*ALPARM initial aL INPUT parameter 

RSHAL*3 CHANNEL NO* TO BITS 5-0 

SLCL*Ki 000037 



\0 2372 2436 

)f 2443 2437 



ENTAU*K2 


777700 


SLSU*T$1 Y 





i 



0 > ' 



I 



) 
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( 



L 12776 
12777 
13Q00 
13001 

! 

i 13002 

I 13003 

13Q04 

13005 

13006 

13007 
! . 13010 

1 130U 

i 13012 

13013 

13014 
: 13015 

13Q16 
1 13017 

i 13020 

i 13021 

f 

: 13022 

13023 

13024 

13025 

13026 

13027 
! 13030 

13031 

■ 13032 

t 

13033 

13034 

13035 

13036 
; 13037 

13040 



\ 




( 
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44 


2443 


2440 . 


04 


2452 


2441 , 


44 


2452 


2442 , 


04 


2457 


2443 •• 


44 ' 


2457 


2444 


04 


2461 


2445 • . 


44 . 


2461 


2446 


04 


2744 


2447 


44 


2744 


2450 


04 


2755 


2451 . 


44 


2755 


2452 v 


04 


2763 


2453 • 


44 


2763 


2454 


04 


2765 


2455 


44 


2765 


2456 


12 


2366 


2457 


50 


4612 


2460 - 


52 


2373 


2461 


74 


3021 


2462 


36 


0000 


2463 - 


13 


3033 


2464 


44 


2416 


2465 


13 


3035 


2466 


44 


2673 


2467 


13 


3037 


2470 


44 


2675 


2471 


13 


3041 


2472 


44 


2700 


2473 


55 


2770. 


2474 

2475 


76 


2472 


2476 


71 


0040 


2477 


70 


0004 


2500 


70 


0015 


2501 


70 


0003 


2502 


70 


0012 


2503 



TYRE1 



stral*t$i 

SLSU*T*2 . 

STRAL*T$2 v. 

SLSU*T*3 ,£> 

STRAL*TS3 .t 
susu*t*4 • .4 

STRAL*T$4 fj:., ; ■ • 

SLSU*T*S1 Syfri ; 
STRAL*T*$1 
SL.SU* TSS2 

S T R A L ♦ T $ S 2 . ; ■ > * > 

SLSU*T*$3 vv- •• 

STRAL*TSS3 '• 
SLSU*T*S4 • 

STRAL*T*S4 I 
ental*alparm - 

LSHAU*10D ; * : 
5LCL*K3 
STRADR*L0KH 
ENT0K*O 




initial al input PARAMETER 
.1232/1532 BIT TO BIT 0 
OOQQOl 

, B IS 0 FOR 1232» 1 FOR 1532 



entalb*typei 

stral*rnoop 

ENTaLB*TYPE1+2 

STRAL*T$$$1 

ENTALB*TYPEl+4 

STRAL*T$$$2 

ENTALB*TYPEl+6 

STRAL*T$PCSp 



TABLE of MODIFIED INSTRUCTIONS 



IJP*TYPE 

REMARK+TABLE 

rjp*cqnver 

ADDALK*40 

ENTALK*4 

ENTALK*15 

ENTALK*3 

ENTALK*12 



OF 1232/1532 



MODIFIED 

1232 

1532 

1232 

1532 

1232 

1532 



INSTRUCTIONS 



( 

I 



1 

! 



V 

i 

I 

i 

I 

t 
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i 

1 13041 

j 13042 

I 13043 

j, 13044 

j 13045 

13046 

13047 
13p50 
13051 
13Q52 

13053 

13054 
! 13055 

r 

i 13056 

; 13057 

13060 



I 

i 

i 
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70 0005 


2504 


ENTALK*Q5 V: 'V;;?: 


1232 


< 


70 0040 


2505 - 


ENTALK+40 :-v - , 


1532 


t 




2506 


REMARKED If Y qutpmt and exf 


BUFFERS for nu TERMINATION 




00 0000 


2507 IQSET 


0* i- - 




• 


12 2445 


2510 


ENTAU*T$l+2^ <• v : • 




i 


71 0001 


2511 . 


• APPALKH - 






44 2444 


2512 ’> 


STRAL*T$lfl3##;:- ' 




j 


12 2454, 


2513 


ENTAU*T$2t^-;v T 




1 


71 0001 


2544 


ADDALKn f 




1 


44 2453 


2515 


STRAP*T*2+i 


. 


}■ 


12 2746 


2516 


ENTAL*T*$lf2 : . ? 




( 

1 


71 0001 


2517 


ADDALK*1 ' 




i 


44 2745 


2520 


STRAUTSSlU 






12 2757 


2521 


ental*t*s2+2 

•tftf S -5, l ji *c.m 




; 


71 0001 


2522 


• . f J *L l Jj t \ 

ADDAEK*! 




> 


44 2756 


2523 


5TRAL*T$S2ti; : v‘i> 




\ 

r 


55 3043 


2524 


1JP*I0SET 








2525 


ENDATA* , 




i 



' . 1 

G>: 

) ■ ' ■ ) ' ) - i 
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add 

ADERU 

ADER33 

ARITH 

COMA 

conver 

CP.AL 

DlVl 


11661 

11343 

11426 

1Q30Q 

0150Q , 

12472 

11530 

11774 


ADP1 

ADER2 

ADER4 

ARITH1 

CONST 

COUNTR 

CPAL1 

DIV2 ; 


U7Q1 
11370 : , 

11400 . 

10321 , 

■ 12527 
12522 - 

11535 
12035 , .. 


ADER '• V 
A0ER3 • 
ALP ARM; 
ATAB 

CONVIVE 
CHAN ■%£: 
cpAUi';':: 

OTl , j}% 


11237 

11271 

12366 

11712 

12505 

: QQQQO 
11563 
12270 

X • 


ADERl 

ADER31 

ALT 

AUT 

C0NV2 

CNT 

CT177 

DT2 


11262 
11424 
10717 . 

10650 . 

12516 
10360 
12523 
12311 


aderio 

ADER32 

alti 

auti 

C0NV3 

CPA1 

DIV 

DT3 


11311 

11425 

10747 

10707 

12520 

11616 

11747 

12267 


DT4 

DTAB4 

dvti2 

ERMSG 

INDEXl 

INT1C 

KT 

lsa 


12332 

12056 

12264 

10364 

12130 

01463 

11450 

11053 


DTA0 

DVT., 

DVT13 

EXEC 

1NDEX2 

INT1D 

KT1 

lsai 


12052 
12057 ■„ 

12265 ... 

10526 . 

12131 
01464 
11457 
11075 


■ OTABl V- 
0VU3#1 

DVT147V 

FLAG'^f’jf: 

INST1 "’V 

ki 

KT2 • .• 

LSAL,^ 


■12053 

iv 12062 

i 12266 
412353 
: 12126 
12371 
11521 
| 10757 


DTAB2 

DVT1G 

eflg 

IOSET 

INT1A 

K2 

LIMIT 

LSALl 


12054 
12262 
10363 , 

13043 
01450 - 

12372 > 

10452 
11013 


DTAB3 

dvth 

ERM1 

index 

1NT1B 

K3 

LIMIT1 

LSAU 


12055 

12263 

10435 

12127 

01462 

12373 

10456 

11022 


lsaui 

mracki 

MUl3 

PAT 

RN00P 

rsau 

T$$$2 

T*1 


11044 

10346 

11745 

10437 

12416 

11140 

12675 

12443 


M136 

MTEST 

MUL4 

PRT 

RSA 

RSAU1 

T**l 

T*2 


12525 

10465 

11746 

10362 

11172 

11163 

12744 

12452 


M76 ' - 

mtitle 

NOCI 
PTN1 
RSA1 : 
SHWQl : 

t$$2 

- T$3 


12524 

10440 

10413 

12367 

11227 

12124 

12755 

12457 


MDUM 

MUL 

NOTYPE 

PTN2 

RSAL 

SHWD2 

T*$3 

T$4 


12526. 

11716 

10464 

12370 

11105 

12125 

12763 

12461 


mrack 

muli 

nymb 

recyl 

RSAL1 

T$$$l 

T$$4 

T*PC1 


10322 

11735 

10361 

10351 

11131 

12673 

12765 

12637 


T$PCl0 

T*PC15 

T$PC2l 

TSPC4 

T$PTl 

TSPT20 

T*PT5 

TAB4 


12711 

12726 

12741 

12702 

12403 

12436 

12466 

12216 


TSPCll 

TSPC16 

T$PC23 

T$PC5 . 

T$PTU 

TSPT21 

T$PT6 

TABS 


12713 

12727 

12751 

12704 

12471 

12425 

12467 

12240 


TJPC12 

TSPC17 

T$PC24 

T$PC6 

T$PT12 

T$PT22 

T$PT61 

tadd 


12723 

12732 

12752 

12706 

12447 

12427 

12470 

10516 


T*PC13 

T$PC2 

TSPC25 

T$PC7 

T$PT13 

T$PT3 

T$PT7 

TADER 


12724 

12652 

12762 

12710 

12456 

12464 

12440 

10510 


T$PC14 

T®PC20 

T$PC3 

T$PCSP 

T$PT2 

T$PT4 

TAB3 

TALT 


12725 

12721 

12670 

12700 

12412 

12465 

12152 

10502 


TAUT 

TITLE2 


10500 

10446 


TCPAL 

TKT 


10514 

10512 


TpIV 

tlsal 


10522 

10504 


TDVT 

TMUL 


10524 

10520 


TITLE1 

tf^aTi 


10442 

12134 



+-:4 * * i*--**'- • 



2f. ^aasA^M 
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TPAT2 

twdi 

TVPT 



121^2 

12122 

12374 



TPAT3 12150 

TWD2 12123 




TPCK1 12133 

TYPE 12770 
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TRSAL 10506 

TYPE1 13q33 



I 



! 

i 

i 

i 



V3f* •'*♦*»•*,«**:' 
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